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Turn your Apple into the world's 
most versatile personal computer. 



The SoftCard™ Solution. SoflCard 
turns your Apple into two computers, 
A Z-80 and a 6502, By adding a Z-80 
microprocessor and CP/M to your 
Apple, SoftCard turns your Apple into 
a CP/M based machine. That means 
you can access the single largest body 
of microcomputer software in exist- 
ence. Two computers in one. And, the 
advantages of both. 

Plug and go. The SoftCard system 
starts with 3 Z-80 based circuit card. 
Just plug it into any slot (except Oj of 
your Apple. No modifications required. 
SoftCard supports most of your Apple 
peripherals, and. in 6502-mode, your 
Apple IS still your Apple. 

CP/M for your Apple. You get CP/M 
on disk with the SoftCard package. It's 
a powerful and simple-to-use operating 
system. It supports more software 
than any other microcomputer operat- 
ing system. And that's the key to the 
versatility of the SoftCard/Apple. 



BASIC included. A powerful tool, 
BASlC-80 IS included in the SoftCard 
package. Running under CP/M, ANSI 
Standard BASIC-80 is the most 
powerful microcomputer BASIC 
available. It includes extensive disk 1/0 
statements, error trapping, integer 
variables, 16-digJt precision, exten- 
sive EDIT commands and string func- 
tions, high and low-res Apple graphics. 
PRINT USING, CHAIN and COM- 
MON, plus many additional com- 
mands. And, It's a BASIC you can 
compile with Microsoft's BASIC 
Compiler, 

More languages. With SoftCard and 
CP/M. you can add Microsoft's AI^SI 
Standard COBOL, and FORTRAN, or 



Basic Compiler and Assembly Lan- 
guage Development System, All, more 
powerful tools for your Apple. 
Seeing is believing. See the SoftCard 
in operation at your Microsoft or Apple 
dealer. We think you'll agree that the 
SoftCard turns your Apple into the 
world's most versatile personal 
computer 

Complete information? It's at your 
dealer's now. Or, we'll send it to you 
and include a dealer list. Write us. Call 
us. 

SoftCard is a trademark of Microsoft. Apple II and 
Apple il Plus are registered trademarlts of Apple 
Computer. Z-80 is a registered trademark ol Zilog, 
Inc CP/M IS a registered trademark: of Digital 
Research, Inc. 




CONSUMER^ PRODUCTS 



Microsoft Consumer Products, 400 lOSlh Ave. N.E. 
Bellevue, VJ/\ 98004, (206) 4541315 
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JUDGE THE REST, THEN BUY THE BEST 

Only GIMIX offers you SOFTWARE SWITCHING between MICROWARE's OS-9 and TSC's 

FLEX. Plus you get the power of the GMXBUG system monitor with Its advanced debugging 
utility, and memory manipulation routines. A wide variety of languages and other software Is 
available for these two predominant 6809 Disk Operating Systems. 
You can order a system to meet your needs, or select from the 6809 Systems featured below. 

JUDGE THE FEATURES AND QUALITY OF GIMIX 6809 SYSTEMS 

GIMIX ' CLASSY CHASSIS'" is a neavyweigm aluminum mainlrame caElnet wllti Oack panel cutouts Id corvBnienlly connect your lerminals. printers, drives, moniiors. 
eic. A 3 position keyswilch lets you locK out Itia lesel switch. TUb power supply lealures a lerro- resonant constant voltage translormer thai supplies BV at 30 amps, + 15V at 
5 amps and - 15V at 5 amps to insure against proMems caused liy adverse power input conditions, it supplies power tor all the boards in a tully loaded sysiem plus two 
5 '^ " drives (yes! even a Winchester) thai can be mstallefl in the cahinel. The Mother board has Ilfteen 50 pin and eight 30 pin slots lo give you the most room (or expansion 
o( any SS50 sysiem available. 1 1 standard baud rates from 75 lo 3e.4K are piovided and the 1 / secllon has its own exler)ded addressing to permit the maximum memory 
address space to be used. The 2 Mhz 6309 CPU card has both a time of day clock with battery back-up and a 6840 programmable timer. It also contains 1K RAM, 4 
PROM/FOM/HAM sockets, and provides for an optional 951 1A or 9512 Arithmetic Processor. The RAM boards use high speed, low power STATIC memory that is fully com- 
pallbla wilh any DMA technique. STATIC RAM requires no refresh timing, no wait states or clock stretching, and allows tast. reliable operation. The system Includes a 2 port 
HS232 serial interlace and cables. All GIMIX boards use gold plated bus connectors and are luily sockeled. GIMIX designs, manulactu.es, and tests in-house its complete 
line of products. All boards are twice tested, and burned In electrically lo insure reliability and freedom from Infanl mortality of component parts. All systems are assembled 
and then retested as a system alter being configured lo your specific order. 

56KB 2MHZ 6809 SYSTEMS WITH GMXBUX/FLEX/OS-9 SOFTWARE SELECTABLE 

With #58 Single density disk controller $2988.59 

With #68 DMA double density disk controller $3248.49 

tosubstituteNonvolatileCMOSRAIulwilh battery back-up, add 300.00 

torSO Hz export pov^er supply models, add 30.00 

Either controller can be used with any combination ol 5" and/or 8" drives, up to 4 drives total, have data recovery 
circuits (data separators), and ire designed to fully meet the timing requirements of the controller I.C.s, 
5 '/." DRIVES INSTALLED IN THE ABOVE with all necessary cables 

BDUaiE DENSITY 

nuMM I 

Chart ihowi totil 
capiclty In Sytei lor 
1 ditvei. 

Contact GIMIX lor price and availabillly ol S" floppy disk drives and cabinets: and 5" and 8" Winchester hard disk system. 

128KB 2Mh2 6809 DMA Systems (or use with TSC's UNIFLEX or MICROWARES's OS-9 Level 2 

(Software and drives not included) $3798.39 

to substitute t28KB CfvlOS RAtul with battery bacftup, add 600.00 

for each additional 64K8 NfilOS STATIC RAM board, add 639.67 

tor each additional 64KB CMOS STATIC RAM board, add • ^non 

tor50Hzexport power supply, add ■^'J™ 

NOTE: UNIFLEX can not be used wilh 5" minifloppy drives. 

GIMIX has a wide varieiy ol RAM, ROM. Serial and Parallel I/O, Video, Graphics, and other SS50 bus cards that 

can be added non or in Ihe lulure. Phone or write tor more complete irtlormalion and brochure. 

THE SUN NEVER SETS ON GIMIX USERS 

GIMIX Systems are found on every continent, except Antarctica. (Any users there? II so, please corlaci GIMIX so v^e can 
ctiange this.) A representative group of GiMIX users includes: Governmanl Research and SclBnliflc Organiialions in 
Australia, Canada, U.K., and in the U.S.; NASA, Oak Ridge, Wliite Plains, Fermllab, Argonne, Sctipps, Sloan Kettering, 
Los Alamos National Labs, AURA, Univarsltles: Carlelon, Waterloo, Royal Military College, in CanaOa; Trier in Germany; and 
In the U.S.; Stanford. SUfJV, Harvard, UCSD. lulississippi, Georgia Tech. tntlustrial users In Hong Kong, Malaysia, South 
Africa, Germany, Sweden. anO in Ifie U S.; GTE, Beclon Dicldnson, American Hoecfisl, Monsanto, Allied, Honeywell. Perkin 
Elmer. Johnson Controls, Associated Press, Aydin, Newkirk Electric, Revere Sugar. Hl-G/AMS Controls, Chevron, Computer 
ntatnlrame and pBripttsral manufaclurarsJBM, OKI, Computer Peripherals Inc., Qume, Floating Point Systems. Sottware 
houses: Microware, T.S.C., Lucidaia, Norpaii. Talbot. Stylo Systems, AAA, HHH, Frank Hogg LaQs, Epstein Associates, 
Soflwest, DynasofI, Research Resources U.K.. I^icroworks, Analog Systems, Computerized Business Systems. 

GIMIX Systems are chosen by the Pros 
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because ot quality, reliability and features. 

Gimix 

Tfie Company thai delivers 
Quality Electronic products since 1975. 

1337 WEST 37lh PLACE, CHICAGO, IL 60609 
(312)927-5510 • TWX 910-221-4055 



A TEAM OF 6809 SUPERSTARSi 

Smoke Signal's Chieftain™ Computer, 
and Software by IMicroware 
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HERE'S THE TOTAL 6809-BASED SYSTEM FOR THOSE WHO DEMAND 
UPiSURFASSED POWER, ELEXIBIUTY AND RELIABILITY 



After years of worldwide use in diverse and challenging appli- 
cations, the outstanding performers in 6809 computer opera- 
tions are SMOKE SiQUAL and MICROWAKE. Tliese leading 
compHnies are recognized as tlie undisputed choices when 
there is no room for compromises. 

WHY SnOKE SIGPiAL AMD MICROWARE LEAD 
THE 6809 riELD 

Smohe Signal began pioneering research and development on 
68ClO/6809-based computer systems bach in 1977. Microware 
worked three years to perfect OS-9 and BA5IC09. 

Both companies have evolved outstanding 6809-based 
products from early engineering research, and both pay 
almost fanatical attention to detail. Eor example . , . 

SMOKE SIGMAL'S 6809-based Chieftain'" computer series has 
proven its superiority in hundreds of demanding tasks. From 
gold-plated connectors to highest-quality materials throughout, 
each Chieftain'" is built to deliver absolute dependability from 
day one, and stay that way through years of service. 



^iitfir^ttftti 




Every Chieftain'" is meticuiously 
EHDURAhCE-CERTiriED at 2,2 MHz. 
That's SMOKE SIOriAL's endorse- 
ment of product perfection. 



MiCKOWARE's state-of-the-art 05-9 LirilX"-like operating system 
and the BASIC09 language have been developed in close 
coordination with computer manufacturers to maximize 
optimum system performance. The llnest possible support and 

•UHlX is a trademark of Bell Telephone Laboratories, 




SMOKE SMU 
BRUDUSTING 



MICROWAR€ 



31336 VIA COLINAS 
WESTLAKE VILLAGE, CA 91362 
TEL (213) 889-9340 



documentation further ensure satisfaction, Microware software 
performance is best summed up in this remark by a 25-year 
computer veteran; 

•'BASIC09 IS THE HfiEST tllOH-LEVEL lAnQUAGE I'VE EVEH 
S^En in THE IFIDUSTKY!" 

Thousands of engineers and programmers use MICROWARE 
software products as their standard time-saving tool ... to 
execute pro cess -control applications . , . and for other vital 
functions. COBOL and PASCAL are also available under the 
OS-9 operating system. 

HOW THIS REnARKABLE TEAM Or COMPUTER 
SUPERSTARS CAM SERVE YOU 

SMOKE srCiPiAL's Chieftain" computer provides an array of 
configurations ranging from SW-inch drives for single-user 
applications to multi-user, multi-tasking capabilities. Winchester 
hard-disk drive systems are also available. 

In other words, breathtaking power with as little as 48k 
memoiy; Microware's OS-9 Level Two can access up to one full 
megabyte that your Chieftain'" can address! 

One more sampling of the awesome processing potential 
at your fingertips with the Smoke Signal Chieftain'" computer: 

MICROWARE'S Stylograph screen-oriented word processing 
package instantly makes Chieftain'" an easy-to-use document 
preparation system with comprehensive editing commands. 

THERE'S nUCH. MUCH HOREI Call or write SMOKE SIQPIAL 
for details on Chieftain" computers and MICROWARE software. 

snOKE SIGNAL Dealer opportunities are still available . . . 
please request information. 

n Send information about Ctiieftain'" computers 
and Microware software, 

D Provide information about Smoke Signal's Dealer program. 
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' Universatility/ 
It's as easy as 1. 2. 3. 




'Universatility' can be found in tfiree versions 
of Synertek Systems' SYM single board computer 
—the versatile, universal evaluation board. 

Over 20,000 SYM-J boards have been used for 
learning about and evaluating 6502 microprocessors 
for specific applications. OEM SYIVI boards are used in 
hundreds of products. 

Now Synertek Systems presents the new SYM-J /6S 
for 6802 microprocessors, and the SYM-I /69 for 6809 
microprocessors. These boards are designed to reliably 
perform the same functions as the SYM-l board for 
these popular microprocessors. Each SYM board Is 
complete and ready-to-use with its own version of 
the 4K byte ROM SUPERMON monitor firmware. 



Modification kits are also available to quickly and 
easily convert existing SYM-I boards to SYM-l /68 or 
SYM-J /69 microcomputers. 

Build on your microprocessor knowledge with 
the 'universatility' of SYM microcomputer boards from 
Synertek Systems. 

Every SYM-i, SYM-J /6S, and SYM-I/69 single 
board computer features: 

• 28 double-function keypad with audio response 

• 4K byte ROM resident SUPERMON with over 30 
standard monitor functions and expandable for 
individual requirements 

• Up to 24K bytes of available program memory 

• Expansion to 4K bytes of on-board static RAM 

• Expansion to 7J Input/Output lines 

• Single -i-5Vpowersupply required 

• Standard interfaces for audio cassette with remote 
control, J85 bytes/second cassette format, TTY and 
RS-232-C, system expansion bus, four }/0 buffers, 
and oscilloscope single-line display 



RO- Box 552 Santa Clara. CA 95052 
Synertek Telephone: (408] 988-5689 

Systems TWX: 910-338-0135 

Dealer inquiries invited. 
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This month's cover depicts an exciting 
space-game scenerio. The games 
feature in this issue describes several 
space games, including Lunar Lander, 
Saucer Launch, and Galacticube, 
While MICRO rarely publishes games 
of any sort, we felt that it was time to 
make an exception. So we assembled a 
variety of game articles, and turned 
them into a feature section which you 
should find not only challenging but 
informative. Chaige up those lasers... 
they're coming in. 

The covet picture was taken Inside 
a NASA simulator at Kennedy Space 
Center. 

The cover graphic was generated on 
an Apple n, and output was provided by 
Computerland of Nashua. 

(Cover photo by Ford Cavallati] 
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Games, Games, Games ... 

Long-time readers are probably surprised 
to find games in MICRO. Oui long- 
standing editorial policy has been to 
limit games, unless they had "social 
redeeming value," since they may be 
found in many other magazines or may 
be purchased directly. We are relaxing 
our policy for this issue because we 
have not had any games for so long, and 
because the holiday season is approach- 
ing. So, have fun. 

On the serious side of games, I still 
believe that too much time, effort and 
interest is being spent on them, to the 
detriment of other software develop- 
ments. While it is the perogative of 
computerists to play and write games, 
MICRO does not want to emphasize 
this single aspect of the micro- 
computer. The games problem has 
grown into a significant social issue in 
recent months. The computer game, as 
used in the game arcades, has attracted 
large numbers of adolescents and is 
increasirigly coming under public 
scrutiny and concern. A number of 
computer game arcades in our area 
have been required to limit their hours, 
to prevent children from playing during 
school hours. Other regulations are be- 
ing contemplated. 

If you have any ideas or comments 
on the game aspects of micro- 
computers, we would welcome letters 
to the Editor about this topic. 

Up, Up, and Away ... 

There is no way to escape the 
realities of inflation. Since MICRO was 
first published in 1977, at a subscrip- 
tion rate of $1.00 per issue, there has 
been a tremendous cost increase in 
almost every area of operation. Over 
several years, MICRO has doubled in 
size and increased its subscription price 
by 50% to the current $1-50 per issue. 
During the past year or two, the size of 
the staff has tripled, the cost of postage 
has gone up almost monthly, the price 
of paper is out-of-sight, the size of the 
magazine has increased 60%, and there 
are the general inflation effects. We 
have, therefore, decided to raise the 
subscription rate effective in January to 
$24.00 per year in the US, with adjust- 



ments in the foreign rates as well. To 
help make the increase less abrupt, we 
are accepting new subscriptions and 
renewals through the end of December 
1981 at the current rates. There will 
also be a new two-year rate for US 
subscriptions |$42-00) which will help 
keep the cost down. The one- year 
subscriber will save 20% over the 
single issue price and the two-year 
subscriber will save 30%. 

An Informal Computer Page 

Since so much of MICRO is devoted 
to the serious side of microcomputing, 
we would like to balance this with a 
page of informal material in each issue. 
This would consist of cartoons, jokes, 
computer trivia, puzzles, jokes, lim- 
ericks, bloopers, computer mishaps, 
strange computer photos, interesting 
computer graphics, and so on. This sec- 
tion will depend on you for input. 
There will be no payment for material 
submitted for this page, but you will be 
given full credit for your material. As a 
small incentive to start thinking about 
the informal side of computing, 
MICRO will offer a free one-year 
subscription to the best of suggestion of 
a title for this page. Entries must be 
received by the end of December 1981, 
and all decisions of the MICRO staff 
will be final. 



MICRO Books 

In addition to our monthly 
magazine, MICRO is interested in 
publishing relevant books. The Best of 
MICRO series which presented reprints 
from the early issues of MICRO (vol. I: 
issues 1 to 6; vol, 2: issues 7 to 12; and 
vol 3: issues 13 to 24] indicated that 
there was a continuing interest in the 
fundamental material that was being 
printed in MICRO. Our first two 
specialized books, MICRO on the 
Apple, Volume 1 and What's Wbeie in 
the Apple, have met with great success, 
MICRO on the Apple, Volume 2 is 
presently scheduled for publication in 
December 1981, with Volume 3 sched- 
uled for mid 1981. 

We are considering a number of 
other book projects, and welcome your 
suggestions. If you have a manuscript 
in mind, or in process, that you think 
would appeal to the MICRO reader- 
ship, please contact us. We have a very 
good distribution network for 6502-and 
6809-related materials, and a 
knowledgeable staff to assist in text 
preparation. 
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Precision Programming 



Writing a structured program 
requires discipline on the part of 
the programmer. While a 
procedure-originated language 
will make the task easier, it is 
possible to write a structured 
program using BASIC. 

Al Hamilton 

12090 Brookston Drive 

Springdale, Ohio 45240 



Precision Programming 

The real objective in programming 
should be to write correct programs 
from the start — not merely to emerge 
from debugging with no errors. Writing 
such correct programs from the start is a 
very possible himian activity. 

With the advent of compilers and 
other debugging aids, it has been easy to 
adopt an attitude of "let the compiler do 
it" in finding errors of syntax. But in the 
long run, this is a devastating attitude 
because it fosters ignorance and care- 
lessness that slides to program logic that 
the compiler cannot uncover. 

If your programming is a vocation 
rather than an avocation, there is no 
reason for you to take errors of syntax 
lightly. Syntax errors are either of 
ignorance or carelessness. 

A professional writer of English, or 
even a well-educated non-professional, 
has little trouble in writing complete 
sentences or remembering to end 
sentences with a period. Writing with 
syntatic precision is a simple necessity 
and practically an unconscious skill for 
any competent programmer. True 
enough, the compiler will find syntax 
errors. However, there are many times 
when a syntax error will be reinterpreted 
as a correct syntax for another statement 
so that a logic error results of which 
neither the programmer or the compiler 
is aware. 

Writing correct syntax is like playing 
a perfect game of Tic-Tac-Toe, not like 
sawing a board exactly in half, it is a 



combinatorial process which requires 
only a fixed and humanly possible 
degree of precision for correctness. For 
example, a complicated expression may 
end with five (or six| parentheses; but it 
will never end with 5.37521... paren- 
theses. The difference between five and 
six is distinguishable in writing and 
reading, and whether it should be five or 
six depends only on previous characters 
of discrete kinds and locations in the 
expression. 

The problem of writing correct pro- 
gram logic is mote difficult than that of 
writing correct syntax. Most of this arti- 
cle is about writing correct logic. The 
reason for begizming with syntax errors 
is to identify an attitude of precision 
which will carry over with good effect 
into the problem of program logic. 

You can write programs with correct 
function logic by using principles of 
structured programming and program 
correctness which are applied in your 
line-by-line program construction. A 
programmer begins with a fimctional 
specification which describes what the 
program is to do. In his mind he con- 
verts that specification into program 
statements and then verifies that the 
statements created in fact do what the 



program was intended to do. hi struc- 
tiued programming there is a precise 
description of this mental activity. It 
begins with the functional specification 
and repeatedly dissects it, a step at a 
time, into new functional subspecifica- 
tions connected by program statements 
until the program is complete. It does 
not consist of a large leap in faith from a 
fimctional specification to loose collec- 
tion of program statements which are 
fitted piece-by-piece into a program. The 
stmctured programming process analyzes 
functional specifications rather than 
synthesizing program statements. One 
brief way of understanding structured 
programming and how to prove the cor- 
rectness of programs written in this way 
is this: 

A, Any functional specification can be 
defined in terms of a mathematical 
function which maps inputs into 
outputs without regard to its inter- 
nal construction. We show such a 
function (fimctional specification) as 



FUNCTIOM 



1, IF-THEN-ELSE 



B, Any flowchartahle program used to 
realize a function is equivalent to a 
structured program, which can be 
constructed by the repeated use of 
only these three basic program 
figmes: 




>. 



(Continued) 
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, Introducing the M line . . 

i^Now^ Drive Systems for AIM, KIM and SYM Computers 
- from PERCOM. 



TVssembied and tested systems start at only 
$599.95 , including the drive controller cir- 
cuit card, disk-operating system, intercon- 
necting cable, drive and comprehensive us- 
ers manual. 

• The right storage capacity - Available in I-, 2- and 3-drive 
systems, with either 40- or 80-track drives. 

• FlippB storage - Flippy drives (optional) let you Hip a diskette 
and store data and programs on the second recording surface. 

• Hiqb Storage Capacity - Formatted, one-side storage capac- 
ity is 102 Kbytes (40-track drive), 205 Kbytes [80-track drive). 

• Proven Controller - The drive controller design is the same as 
the design used in the Percom 680X LFD mini-disk system, Thts 
system - introduced in 1977 - has given reliable sewice in thou^ 
sands of applications. Two versions are available: the Ml-U-l.bS 
for the AIM-65 expansion bus, and the MFD-C50 for the Sys- 
tem-50 (SS-50) bus. ^^ ^, ,. , , 

• Includes an explicit data separator circuit that s reltable 
even at the highest bit densities. 

• Provides for on-card firmware. 

• Includes a motor inactivity time-out circuit 

• Capable of handling up to lour drives. , , , ^ 

• Capable of reading both hard- and soft-sectored diskettes. 



• DOS included - The MFD disk -ope rating system worf(s with 
the AIM monitor, editor, assembler, Basic and PIJ65 programs; 
interfaceisdirect, through user I/O and Fl,F2 keys 

• Reliability assurance - Drives are burned-in 48 hours, under 
operating conditions, to flag and remove any units with latent de- 

• Full documentation - Comprehensive hardware and software 
manuals are included with each system. These manuals cover de- 
tails from design to operation and applications. 

Now! Expand your AlM-65 with Low-cost System-50 
Modules. 

The Percom M65/50 Interface Adapter connects your M-65 bus to 
Percom's System-50 (SS-50) motherboard, allowing you to ex- 
pand your AIM, KIM or SYM with proven System-50 modules. 
You can add disk storage, memory modules,even a video display 
system The M65/50 provides buffer -amplification of address, data 
and control lines, On-card decode circuitry lets you allocate ad- 
dress space either to the computer or to the expansion mother- 
board. Price: only $89.95. 

System Reqairements: AiM-65. KIM or SVM computer with ex- 
pansion bus and four Kbytes RAM.fmin), 




PERCOM DATA COMPANY, INC, 

11220 PAGEMILLRD DALLAS, TX 75243 

131d)31D-7aai 

Toil-Free Order Number 1-800-527-1222 

PRICES ftND SPECIFICATIONS SUBJECT TO CHANGE WITHOUT NOTICE 

«19eiPERCOM0ATACt)MPANV,!nc. .^ r, ,- i 

PERCOM MFU-C50, MfD-C6S and MfiSibO are hademarks □! Permm Llala Company, Inc. 
fllM-6S s a nadcnwrk of Bockuwil Intpmalinnal, Intz 
KM isa Iraderraik of MOS Tpthnokigy Ccupotsaon 
SVHsalradpiriarkolSyneilck, Inc. 



I 



Yes , . . I'd like to know more about Percom MFD drive systems. 
Rush me free lileraiure. 

Send to _ ,^ .. 

PEBCOM DATA COMPANY, inc., Dcpt 65-M 

11220 Pagemill Rd, Dallas. TX 76243 



oddtM^ 



ciiv 



flp 




plionti Tiumbei 
MAIL TODAY! 



2. SEQUENCE 



SEQUENCE 



-A — JsaquivaJentio 



lirsl pa'l 



second pa ri 



->- 



3. WHILE DO 



WHILE DO 



iseqjFvafenr ro 




Each THEN-part, ELSE-part and DO- 
part is just a new function and can be 
replaced by another IF- THEN-ELSE, 
SEQUENCE or DO-WHlLE figure in a 
subsequent expansion step. 

The structured program construc- 
tion process proceeds from an original 
functional specification as a series of 
decisions, which specify which figure 
and what resulting new tests and func- 
tions are required to expand the original 
and any intermediate functions re- 
quired. When the fimctions required can 
be written directly as program state- 
ments, the expansion process is complete. 



In a high level procedure-originated 
language such as Pascal and PL/I, these 
expressions can be written directly in 
matching statements. The relationship 
between program text and execution 
thus becomes especially clear. In a non- 
procedure-originatcd programming 
language like BASIC, the programmer 
requires more discipline to maintain 
proper programming structure. An ex- 
ample of how a proper program can he 
written in BASIC will be presented later. 

C. At each expansion step, the correct- 
ness of that step can be decided by 
answering a standard question that 
goes with that type of expansion. If 
the answer is yes, the step is correct 
and the program expansion can pro- 
ceed. If the answer is no, the step is 



not correct and a new one should be 
defined. The questions are: 

I. IF-THEN-ELSE — whenever the 
IF-test is true, does ihe THEN- 



1 . IF-THEN-ELSE: Z = max (X.Y) 



X,Y 



part do the IF-THEN-ELSE; and 
whenever the IF-tesc is false, does 
the ELSE-part perform the IF- 
THEN-ELSE? 

2. SEQUENCE — does the first-part 
followed by the second-part per- 
form the sequence? 

3. WHILE-DO — whenever the 
WHTLE-test is true, does the DO- 
part followed by the WFIILE-test 
perform the WHILE-DO; and 
whenever the WHlLE-test is 
false, does the identity fimction 
|no-op program] perform the 
WHILE-DO? 

The question for the IF-THEN-ELSE 
and sequence expansions are self- 
evident. The question for the WHILE- 
DO becomes self-evident by observing 
this sequence of equivalent expansions: 
expand the execution of the WHILE- DO 
into an IF-THEN-ELSE, and observe that 
the WHILE-DO reappears as the second- 
part of [he sequence making up the 
THEN-part; the ELSE-part is the identity. 

D. When steps 2 and 3 are carried out to 
the point where no sub specifications 
remain, the result is a complete pro- 
gram and the proof of its correctness 
has been completed as well. Some 
illustrations of individual steps with 
their correctness questions are; 




Whenever X> = Y, does Z = X perform 
Z = max |X, Y); and whenever X< Y, 
does Z-Y perform Z = max |X, Y]? 



2, SEQUENCE: Z = max (X. ABS (Y)) 



X.Y 



W = ABSiT) 



x,w 



Z = mflx(X,W) 



Does W = ABS (Y|, followed by Z = max 
(X, W), perform Z = max |X, ABS (Y))? 



I 
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3. DO-WHILE : remove leading zeros 




Whenever there is a leading zero, 
does "leading zero" followed by 
"remove leading zero" perform 
"remove leading zeros''^ and whenever 
there is no leading zero, does doing 
nothing perform "remove leading 
zeros"? 

In order to see these principles in ac- 
tion, consider the problem of searching 
for an item called "KEY" in a list called 
"TABLE", with a total of "N" 
elements, denoted TABLEll |, 
TABLE|2|, ..., TABLE|Nl, respectively; 



we are to display the results of the 
search as an item called "I", which is to 
satisfy the relation: 

"Sequence Question" 

TABLE|!|: = KEY, if possible 
1; = 0, otherwise. 

Note we have defined a function in 
words. The argument is N + 2 items 
namely "N", TABLE|lt, TABLE[21, ..-, 
TABLE|N1, "KEY" and the value is "I", 
as diagrammed. 



N. TABLE[1] 
TABLE[2|,.. . 
TA8LE[N1,KEV 



TABLE[:! = KEY. If possiDie 
I = 0. otherwise 



-> 



It is easy to invent a program for this 
function, 

function seaichl(n:mteget;key:teali 
liiWe.anay /J..n/ of realj .-integer, ■ 

vai J,/.' integer; 

begin 

j; = 0, 

for /.■ = 1 to n do 
if tablejij = key 
then i: = i; 

search 1: =i 
endi 

It is not an efficient program, to be sure, 
but it seems to be correct. Why? First, it 
is a sequence of two subprograms whose 
functions are; 

A. First-pare: Set I to zero 

B. Second-part: Find, if possible, a 
value for I for which TABLE|I| = 
KEY; otherwise, leave I unchanged. 

The sequence question (sec figure 
above! asks if the first-part followed by 
the second-part does the SEQUENCE. 
We believe so. The second-part above is 
itself a loop, hut not a WHILE-DO loop. 
Instead it is the familiar indexed loop, 
which we will call a FOR-loop for short. 
It is worth our attention as an extra con- 
trol beyond the three basic ones given 



Whereas SEARCHl looked at every item 

in the tabic, this algorithm would stop 
looking after the first success in 'table.' 
Unfortunately, the FOR-WHILE con- 
struction is not valid in Pascal. Yet the 
effect of this conditional termination 
loop can be realized as written in 
SEARCH3: 



Ainction seazch3(n: integer; icey. real; 
Mbie.anay [l.-nj of realj; integer; 

var i.j: integer; 

begin 

J.- - 0; 

/■■ = U 

v/iale((i=n)widii-0)) do begin; 
if table (jj = key then 

endi 



above. This extra control is that the in- 
dex of the FOR-loop is not altered in any 
way by the body, or DO-part of the FOR- 
loop. Then the FOR-loop becomes an 
extended sequence, with a first -part, 
second-part, third-part, ,.., nth-part. The 
corresponding correctness question is a 
simple extension of the sequence ques- 
tion as well. The DO-part hi this case is: 

DO-parl: IF TABLE|J] = KEY then set I lo J, 
otherwise leave I unchanged 



And it is easy to see that the sequence of 
such DO-parts, for | = I, ] = 2, -. J = N 
indeed docs the FOR-loop (second-part 
above). Finally, the DO-part, is itself an 
IF-THEN (IF-THEN-ELSE with null 
ELSE) figure, and it is easy to see that it 
satisfies its functional requirements. 



The SEARCHl algorithm could be 
improved by the following logic. Note 
that this is not a valid Pascal program: 



seaichS: = f 
end; 



Here, the FOR-WHILE loop becomes a 
sequence of a first-part for initialization 
and a second-part of WHILE-DO whose 
do -part includes incrementing the in- 
dex. In this form the WHiLE-DO ques- 
tion applies — it asks: 



whenever I< =N and 1 = 0, does the 
DO-part followed by the WHILE-DO 
perform the WHILE-DO; 

and: 

whenever f >M or I< > 0, docs doing 
nothing perform the WHILE-DO? 

We can see that it does. If the KEY 
has not yet been found in the TABLE, 
and we have not looked at every item, 
then we can look at the next item and 
set I, I accordingly and still complete the 
task requhed of the WHILE-DO. 

For performance the WHILE-DO 
should be made as small as possible; 

function seorch4('n .integer; J<ey.- real,- 
MWe.-anay (l-.n] of re alj; integer; 





var i; integer; 


function seuich2; 


begin 


begin 

i; = 0: 


/.■ = ]; 

wfiile['C(flWe/i/< > key)anA 


for /.■ = I to n wliilefi = 0) do 

(not valid Pascal logic] 
if tablelil=key 
then i: = j 
end; 


(i<i =n))do i:^i+ 1; 
if i n then i: = 0; 

seaich4: = i 
end; 



No. 42 - h4ovembef 1981 



MICRO - The 6502^609 Journal 



9 



The IF-THEN-ELSE has been moved 
from within the WHILE-DO to a se- 
quence following. In this form the 
WHILE-DO question asks: 



whenever TABLE|I|< >KEY and 
I< -N, does the DO-part (in this case 
i = ! + I ) followed by the WHILE perform 
the WHILE-DO; 



'and: 

whenever TABLE|I| = KEY or I N, does 
domg nothing perform the DO-WHILE? 



Now we have a single execution of 
the IF-THEN-ELSE to set 1 to if no 
value of TABLE[I] was equal to KEY. 

The programmer using BASIC does 
not have ail three elements imple- 
mented. The elements available are the 
sequence and a degenerate IF-THEN- 
ELSE so that the discipline of coding the 
basic elements is added to the task of 
writing a proper program. We are there- 
fore forced to use another const met with 
the two elements provided to build the 
three basic elements. The three con- 
structs we start with are: 





When the IF-THEN-ELSE has a null 
ELSE the following can be usedr 

C- IF-THEN 

IF-test THEN GO-TO collector 

THEN part 

collector 

Another element that can be used in- 
stead of the WHILE-DO is the REPEAT- 
UNTIL: 



D. REPEAT-UNTIL 

IP-test THEN GO-TO collector 

DO-part 

GO-TO REPEAT-lJNTIL-test 

coUectoi 

The following sample programs will 
use Newton's method of successive 
approximations to find the square root 
of numbers obtained from a file. There 
aie two WHILE-DOs, one WHILE not- 
end-of-file and one WHILE last approx- 
imation is not equal Co the new approx- 
imation. Also count the input data 
items and display the count or "no in- 
put" at end of job. 

Notice that the READLN (or INPUT) 
statement is at the bottom of the 
WHILE-DO and there is a priming 
READLN |or INPUTl statement in the 
intitializing phase of the program. The 
program flow is process, output, input, 
in that order |not input, process, output 
as in the non-structured programming 
approach. ] 



I 



The program stmcture for the IF- 
THEN-ELSE and the WHILE-DO are: 

A. IF-THEN-ELSE 

IF-test THEN GO-TO first-part 

second-part 

GO-TO collector 

first-part 

collector ■ 



B. WHILE-DO 

GO-TO WHILE-test 

collector 

DO-part 

IF-test THEN GO-TO collector 



The syntax and function of a well- 
designed procedure-originated language 
can allow the programmer to code a pro- 
gram that reads like the fimctional 
specifications of the program with no 
need for remarks or comments. 

The challenge to the BASIC pro- 
grammer is greater. 








DO-part 


-• 










\ 


J- 


N 


' 




^ 




^ 


_^ IF-TH 






? 




? 






Al Hamilton giadiiated from the 
University of Cincinnati as an Electrical 
Engineer, He has been programming in 
PL/1 and Assembler for twelve years. Since 
obtaining an Apple II in June of 1979 he 
has been applying stiucmred programming 
techniques to programming in BASIC. 



(ConiiHued oh next page) 
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(* *) 

[* Precision Programning *) 
{* Hamilton *) 

[. «) 

(• listing 1 : Pascal *) 
(» •) 

(iHHHHHHHi***************** ) 

program saniple(infile) ; 

var infile; text; {* input file *) 

number: real; (* input number *) 

approximation: real; (* square root approximation *) 

squareroot .square : real; (* square root, square of number *) 

count: integer; (* a counter *) 



begin 

^ount := 0; 

reset (infile, '*reals.'dBta' ) ; 
readln(infile,DUffltier) ; 

while not eof(infile) do tegin 

count :- count+1 ; 

approximation := nuffiber/2; 

squareroot i'^ (number/approiimation+approxiniation)/2; 

while (squarerootOapproximation) do begin , 

approximation := squareroot; 

squareroot := (number/approximation+approxiinatioii)/2 
end; 

square ;= nuBber*number ; 

writ eln(number, square, squareroot) ; 
read ln( infile, number) 
end; 

if oount«0 

then writeln('Ho Input') 

else begin 

writeln( 'Counts ' , count) ; 

writeln( 'SucoesBful end of job.") 
end; 

cloaeCinfile) 

end. 



REM 

REM 
HEM 
REM 
EEM 
HEM 
REM 
REM 
REM 



* * 

» PRECISION PROGRAHMIHG * 

* HAMILTON • 

* « 

* LISTING 2: BASIC • 

* • 



10 COUNT - 

20 EOF = 

30 OHERR GOTO 50 

40 GOTO 70 

50 EOF = 1 

60 GOTO 210 

PRINT CHHS 



70 



(4); 

"OPEN INFILE" 
80 PRINT CHES (4); 

■'READ INFILE" 
90 INPUT NUMBER 
100 GOTO 210 
1 10 COUNT = COlTiT + 1 
120 GUESS = NUMBER / 2 
130 HOOT - (NUMBER / 

GUESS + guess) / 2 

HO GOTO 170 
150 GUESS = ROOT 
160 ROOT = (NUMBER / 

GUESS + guess) / 2 



170 IF ROOT < > GUESS THEN 150 

180 SQUARE " NUMBER • NUMBER 

190 PRINT NUMBER, SQUARE, HOOT 

200 INPUT NUMBER 

210 IF EOF < > 1 THEN GOTO 110 

220 IF CCUHT = THEN GOTO 260 

250 PRIHT "COUNT: ";COUHT 

240 PRINT "SUCCESSFUL EOJ" 

250 GOTO 270 

260 PRINT "NO INPUT" 

270 PRIHT CHHS (4); 

"CLOSE INFILE" 

280 EHD 



JUCftO 



Submitting an article to IMICRO? 

The following tips will help both you and our staff: 

Text 

• Send typewritten, double-spaced copy. 

• Put your name and address on the first page of tfie 
article, and name on eacli page, 

• Provide a summary of the article, and a brief 
biographical note. 

• Use tables and figures — they're not only effective, 
but add visual interest to your article. 

If you have topic ideas you'd like to discuss, please call and 
receiving your manuscriptsi 



Listings 

Make sure printed listings are: 

• machine generated 

• black ink on white paper 

• commented 

• thoroughly tested 

We'd appreciate listings on magnetic media. 
Please provide: 

• BASIC and binary files 

• assembler source liles 

• specifications and loading instructions 

talk with one of our editors. We look forward to 
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Memory— you never seem to have quite 
enough of it. 

But if you're one of the thousands of Apple 
owners using the Sof tCard, there's an economical 
new way to expand your memory dramatically 

I6K ON A PLUG-IN CARD. 

Microsoft's new RAMCard simply • 
plugs into your Apple 11® and adds 16k 
bytes of dependable, buffered 
read/write storage. 

Together with the SoftCard, ■ 
the RAMCard gives you a 56k 
CP/M® system that's big enough 
to take on all kinds of chores that \ 

would never fit before (until now, 
the only way to get this much ' 

memory was to have an Apple 
Language Card installed). x 

GREAT SOFTWARE: 
YOURS,OURS,ORTHEIRS. 

With the RAMCard and 
SoftCard, you can tackle large- 
scale business and scientific 
computing with our COBOL and I 
FORTRAN languages. Orgreafly t- 
increase the capability of CP/M 



applications like the Peachtree Software account- 
ing systems. VisiCalc^" and other Apple software 
packages can take advantage of RAMCard too. 

And RAMCard gives you the extra capacity to 
develop advanced programs of your own, using the 
SoftCard and CP/M. Even with the RAMCard in 
place, you can still access your ROM BASIC 
I and monitor routines. 

^ JOIN THE SOFTCARD 



The RAMCard is just the 
latest addition to the SoftCard 
family — a comprehensive sys- 
tem of hardware and software 
that can make your Apple more 
versatile and powerful than you 
ever imagined. 

Your Microsoft dealer has all 
the exciting details. Visit him 
soon, and discover a great idea 
that keeps getting better. 

Microsoft Consumer 
Products, 400 108th Ave. N.E., 
Suite 200, Beiievue, WA 98004. 
(206)454-1315. 



/^wCHK^OfT .. 



; ;5: 



SollCaid, RAMCard and MJcrosotl are trademarks 
of Microsoft, Jnc. Apple N Is a r^giaiered 
iradsmark ol Appfe Compuler Inc. Z-80 Is a 
regislered tcademark of Zilog, Inc CPlM is a 

registered Irsdemark of 
I Digllat Research irtc. 

- - "-p-l" * ■ "^ VisiCalc Is a regisiered 

'■ Irademarh of Personal 

---_-. Software, Inc. Mlcrosofl 

Consumer PiotJucta is a 
division of Microsoft, Inc^ 
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Pascal Tutorial 



Part 1 



Victor R. Fricke 

325 Ramapo Valley Road 

Mahwah, New Jersey 07430 

Lesson 1: Getting Started 

A short time ago 1 installed my Apple 
language Card, and with great expecta- 
tions embarked on a comise of painful 
self-education. The descriptions that 
follow are for a single drive system, 
which is what I have, i have found it 
very difficult to use Pascal with only 
one drive. 

The first-time user is faced with two 
problems. First, you must learn the 
operating system for UCSD Pascal as 
implemented on the Apple. Second, you 
have to learn the Pascal language. This 
lesson will help you get started on both 
problems. 

The Apple Pascal reference manuals 
provided with the system contain a 
wealth of information, but in a form 
which assumes a lot of knowledge on 
the part of the reader. They are included 
with Version 1.1 of the Pascal package, 
and are much better than the old manual 
that came with the Version 1.0 package. 
One of the manuals concentrates on the 
language, and the other on the operating 
system. 

The Operating System 

The operating system allows the 
computer to do many things, including 
understanding Pascal programs. When 
you boocload Pascal according to the 
directions in the appendix to the 
language manual, you are, in effect, run- 
ning a "HELLO" program which is the 
Pascal operating system. The screen 
looks like this: 

COMMAND; E(D IT, R(UN, F(ILE, C{OMP, L(IN 

WELCOME APPLEO. TO APPLE II PASCAL 1.1 
BASED ON UCSD PASCAL 11.1 
CURRENT DATE IS 19-MAY-81 



(C) APPLE COMPUTER INC, 1979,1980 
(C) U,C. REGENTS 1979 

At this point the Pascal system is 
operating at the "COMMAND" level. 
The system functions are grouped into 
levels, and "COMMAND" is the 
highest level. The line across the top of 
the screen is similar in function to the 
"Menu" you see in many BASIC 
programs. 

The line at the top of the screen, called 
the "prompt line," is different for each 
level of the system. However, you do 
not see all of it. The prompt line is 
longer than the 40 characters of the 
Apple display. This fact does not mean 
that you will not be able to see the rest 
of the line. The Pascal system has a 
feature known as horizontal rollover. 
This lets you shift your field of view 
from left to right, to see the other half of 
the line. This is done by typing 
"Control-A." 

When you type in Control-A, the 
effect is as if the whole screen of text 
moved off the left side, and the right half 
of the screen moved into view. As a 
result, you have 80-character lines 
available, even though only the left half 
or the right half is visible at any time, 

if you are performing these actions 
on your computer as you read this arti- 
cle, try typing Ctrl-A, You should now 
see the right half of the prompt line: 

K, X(ECUTE, A(SSEM, D(EBUG,?[1,1] 

Notice that the last option in the 
prompt line is a ? which is an indication 
that there are more options available 
than those shown. To see them, press 
the "?" key. If you have been following 
directions, you will see: 

LT, S(WAP, M(AKE EXEC 

You are looking at the right half of the 
screen. By flipping back and forth, you 
will be able to see that the entire 



prompt line reads: 

COMMAND: U(SEH RESTART. INITIALIZE, 
H(ALT. S(WAP, (MAKE EXEC 

I will not attempt to describe all the 
options available at the command 
level, just the more common ones. The 
following is a summary of the options 
covered in this part of the series. More 
options will be covered in subsequent 
parts. 

Edit 

The Edit command gets you into 
the system editor, (ust press "E" in the 
"COMMAND" level. The editor is 
used for establishing the workfile, 
editing the workfile, or editing a text 
file. It is at the second level of the 
system structure, and has its own 
prompt line. 

At this point, I'll offer a word of 
description about the workfile. The 
workfile is a block of information in 
the working memory space, used to 
hold the file currently being worked on. 
A scratch copy of the workfile is also 
kept on the disk. It is stored as a text 
file called 

SYSTEM.WRK.TEKT 

Also, when SYSTEM.WRK.TEKT is 
compiled, the result is a code file that is 
saved on the disk with the name: 

SYSTEM .WRK.CODE 



Run 

The Run option lets you run a 
Pascal program which is on the disk in 
the drive. If the program has not been 
compiled, the system compiles it first. 
Then, if it compiles successfully, it 
runs the compiled program. If any er- 
rors in the program are detected during 
compilation, the erroneous line is 
displayed, with an error message. 
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The system makes several assump- 
tions that you should know about if 
you want to mn a program. First, if you 
have established a workfile, it assumes 
that the workfile is the program you 
want to run. Second, it assumes that 
the disk in the drive contains the 
following files: 

SYSTEM.COMPILER 
SYSTEM. LIBRARY 
SYSTEM. LINKER 

If you attempt to run a program 
without these files in the drive, you 
will get a message: 



MUST LINK FIRST 



File 



The File option gets you into the 
filer subsystem. In the filer mode, you 
can list the disk directory, delete files 
from the disk, check for bad spots on the 
disk, rename a file or a disk volume, 
clear the workfile, and so forth. 

Compile 

On your old (pre-Language Card) 
Apple, there was a system program like 
there is for the Pascal system — the 
BASIC interpreter. It took your BASIC 
program, looked at it one line at a time, 
checked for syntax errors, and, if it 
found none, executed the resulting 
instructions. 

Although you may not have noticed, 
the result was a much slower operating 
computer. If a particular line of BASIC 
happened to be in a loop which executed 
many times, the interpreter would 
check it for syntax errors each time 
before executing it. 

Obviously, the computer wasted a 
lot of time re-checking instructions. A 
much more efficient system program 
would be one which looked at the pro- 
gram as a whole only once, checked 
each statement for syntax only once, 
and then translated the entire program 
into a block of machine code. This pro- 
cess is called compiling, and that is 
what the Pascal system program does. 

Execute 

The execute option, as you already 
may have guessed, executes a machine 
code file which has been previotisly 
com.piled. 

More on the Filer 

You access the filer by pressing the 
'F' key while in the command level. 
After you do, the display looks like this: 



Table 1 








FILER:G, S, N, L, R, C, 


T, D, Q |1.1| 




APPLEO: 






SYSTEM -PASCAL 


41 22-SEP-80 




SYSTEM. MISCINFO 


1 14-MAY-79 




SYSTEM.COMPILER 


75 19-SEP-30 




SYSTEM.EDITOR 


47 4-SEP-80 




SYSTEM. FILER 


28 I8-SEP-80 




SYSTEM. LIBRARY 


34 19-SEP-80 




SYSTEM. CHARSET 


2 I4-IUN-79 




SYSTEM-SYNTAX 


14 I-AUG-80 




8/8 FILES, 32 LINUSED 


32 IN LARGEST 



FILERiG, S, N, L, R, C, T, D, [1.1] 

Now let's look at the directory for 
the disk in the drive (it should be 
APPLEO: for a one-drive system). Press 
'L'. The system then asks: 

DIR LISTING OF? 

to which you respond: 

APPLEO: 

Don't forget to have the colon (:) on 
the end of the name. It tells the system 
that you want the directory for the disk 
volume named APPLEO. Leaving the 
colon out initiates a search for a program 
named APPLEO on the boot disk drive. 
As no such program exists, an error will 
occur. After the usual hums and whirrs, 
the display is as shown in tabic 1. 

Besides the listing of files on the 
disk, there is other information in this 
listing. The number to the right of the 
file name is the number of blocks occu- 
pied on the disk by the file. The message 
at the bottom can be interpreted to 
mean "There are eight files listed out of 
eight on the disk, 32 blocks are unused, 
and the largest contiguous chimk of free 
space has 32 blocks." That is, all the 
free blocks are together. 



You will notice there is no file called 
SYSTEM, WRK-TEXT or SYSTEM. 
WRK.CODE. This means that the 
workfile is empty. You will also notice 
that there is no Pascal program file on 
the disk. If there were, it would have a 
name that ended in 'TEXT', such as 
TREE, TEXT, The meaning of this will 
become clear shortly. 

While we are stOl in the filer, we will 
set up a sample program. Since 
SYSTEM,EDITOR is on APPLEO, and 
the sample Pascal programs are on 
APPLE3, we have to transfer the pro- 
gram file we want to examine onto 
APPLEO from APPLE3, 



Normally, when you enter the 
editor, it attempts to read the workfile 
from the disk in the drive, if there is no 
workfile, you get the message: 

NO WORKFILE PRESENT 

To establish an existing program text 
file as the workfile, you will have to use 
the GET command from the filer. If you 
do this to get a sample program from 
APPLE3, it seems to work all right until 
you replace APPLEO and return to com- 
mand level. When this is tried, you get 
the message: 

WORKFILE LOST 

Thus, since all the system programs 
which work on Pascal programs are on 
APPLEO, and the sample Pascal pro- 
grams are on APPLE3, you will have to 
transfer the one you want onto APPLEO, 
Note that for two drive systems it will 
be necessary to transfer Pascal text files 
from APPLE3 to APPLET This is 
accomplished via the TRANSFER com- 
mand. While still in the filer, hit 'T', 
The question: 

TRANSFER? 

will appeal on the screen. Place APPLE3 
in the drive and answer with: 

APPLE3:H1LBERT,TEXT 

The system next responds with the 
question; 

WHERE? 
to which you should answer: 

APPLEO: HI LBERT TEXT 

The system will then tell you: 

PUT IN APPLEO 

PRESS <SPACE > TO CONTINUE 

In a short time the message: 

APPLE3:HILBERT,TEXT -> 
APPLEO: HILBERT TEXT 



i 
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BRERKTHROUCH 

W.;,e dQn« H ooam' Ai a /eadcTtn smDll con.p.,1^^ iules --^ muiI consl^nihl-^d "sw uipys to.c.e cu^om^rs mon^y ii-f.flB -//emg q-D/f.y produce Our mo^t 
^™tr°dte Z Appte I Ptr's nnu, avJabl. ,.f,h fi-JK c/ i^.er RAM c, Ih. u^be^wbh puce d o.ly S1Z49 7 hi. ;. pa^ble b.c..^ wemo..hclu.elh^ 

]!!!— ^:XiTr.ll!lilJ^VZlba,e. 'J..<.olc. .nd ,ke Z-SO ..rd>. n. c.,d Is ...d. /,.,. Nsb q.d;„ „».p...... ..,d /... . Mi ... ..- 



knguages 

E4KnPPLEIIPLU5* 

■48 K Apple II Plus i^itb 16K Rom Ca^d ^j^ ^ ^^ ^^H ^^^ ^ SHIPPING' 

ONLY Sl^""* 
1EK o'^ V $1025 48K ° ^ $1089 



DISK II DRIVE 
DISK II DRIVE 



WITH 
CONTROLLER CARD 

ADD ON 



Apple Cards and HarduMre 

liK Ram Ca'i by CCI >S» 

LinQUAge SjTilein m/faBial -,.--,. .379 

SI]Enl¥p*PflnlEr */l»i(»rfpceCarJ - 3*9 

HfLli«aMlciDniod0i1lll - --' -259 

Nm.Uoil Apple-C.l II 339 

VWcVUeoH-no BO Column "f&.pSIc 269 

Z-SOSnhemd in Hkjoioft 2" 

IfaKRamC^rilbirMicEDtaTr 1^^ 

^t Ninnerll Kevpad |oW ai new Tiyhnll - 110 

ALF 3 Voice htuak Cird 239 

J^LF 9 Vote* Musk CoiJ 1*9 

Lath LonvT CUH PiLia ♦ ---,.. .55 

Micro -Stl Dliik Dri™ lA-MftA-70) CAIX 

SSMAIOSvrl«l/P«i«llel Cold AST 1»9 

Sup-R-tsTniln.l BO Column Cld 329 

SVA ZVX4Mea"l>V"e'fl" !'<•'• '^""'^"I'P'' ...-..- 5>9 

gVA2.h2SlnqlEDpn.S'DlBkCanDDUei...-. ...--. .M5 

IhumlmClnct Plus "» 

S»n"ecH|.S».LI9lill^» "" 

Inlpffcl or Appluoll Fkroiwuv Caid - 145 

Gnphlci T«Mn 6" 

PflHlI'l Prinler liKvcfAca Cud. ...--- -.13S 

Hl-Spend 5>4|aI Inrcilacv Card - .135 

SmaHBm SOCalumn Caid -- - 299 

Jojslici btKevboanl Co •* 

Hualc Svalrrn (li Wolcia) *'9 

A/O ♦ D/Aln»riata -.•--,.- ---.-289 

EapanaJnn Cbaaala - - - - 599 

InOnl/X-lO Coolrolter Clud .169 

Clock /Ctlindar Can) 215 

CPS MulH.luntHnn Carrl I»9 

Siipailalk" Sn.IOO 239 

Rumiilna . C«nl-. '35 

HomKlMrr Card I«» 

Clotk; Calendar MnlulE 99 

GPIBlEEE-4SSC«rd 2*' 

AafiKhrnnoua Serial Lnlcrlace Caid. ... - 129 

Cfnuontu Palalkl InliHace Card 99 

AHJtiiaienE Proceaaoi Card. -.---.-.- 199 

W« r^anv «1l CCS calda, piciar uU loi b«l pdcen- 

Sofiwarefor the Apple 

Walcalca.a 169 

CCA Data Manayeraenl flS 

DBMaaIn ..-169 

WorilSlar (Apple SO col. Teralon) 299 

Applewiltvi - - - 65 

EaavBriler - - SZ6 

PeBchtiKButlnvaaSaftwan-- .---.-........... .CALL 

Vlalrernr -,,--...-,.---.. 129 

Viallrvnd/Vlalplot . - . . . . 219 

Rral Eautc Anal¥«*- - --...-,,,.-.-.- H9 

Ta. Pieparei 99 

DOS Toollill 6S 

Taa Planrtet -.,.-,-..-.- -..--,-. 99 

Ditar Joaea Pordnllo tvalualor 46 

Dow Jonei New* a Quoin Reportct . . ..-.-..-...,.- .IS 

^plo Konran -.- 166 

CoiiUfilleiGni.Biu.Si;«leBi- -.---. ....-.-..-. ..-,-499 




Printers 




Epson MX-80 CALL 

Anad«i.950n/9SIH»/aiana.l 1299 

C. Iloh SmwrtlniSCPS 'J'' 

C,llhoSlar«rilei45CPS ..-1S99 

Epaon ""-'0 - C«| 

E|»on MX.SO F/T C^ 

Paper Tiger 103446 *'' 

Paper TIBS. IDS *60 ;«« 

PapeiTlgei IDS.560 '"' 

Sll'nlvpe w/ Apple II Inlvfface cand 349 

Oum.SprlnlS/45 2495 

TOLL FREE ORDER LIJVE 

800-854-6654 

California and outside 
Continental US 
(714) 698-8088 
TELEX 695000 BETA CCMO 

Video Monitors 



Atari Personal Computer 




ATARI 800 16K $749 

Atari 400 1*K 349 

410 Proflraoi Becoider - -.-.-6S 

BID DIak Dtlie 44» 

016 Dual mik Drive (Dbl. Dm.) 1)9S 

»;? Thermal Prlirler 349 

SSO Interface Module. . .-- -,-.-..- 159 

IliKRam Memoiv Hodole 1*9 

16K Rom MemuEt Module (by ConCorBp)-- S9 

NEC Microcomputer 





Amdek/IJieile. Video lOOirBftW 133 

Amdek (Hllochl) 13' Color , . , 3S9 

NEC irGieenPTioaphef Screen ----.-.-... .CALL 

NEC 12- RGB Hl-Hea Color CALL 

PaoD.onlc 13" Color 449 

Sanvn *■ B&W I» 

Sanyo 9^ Giren Pho^helScnoa - ... - CAIL 

Siniro 12" DSW 26' 

Sanyo 12" Green Phoapher StrMO 285 

Sanyo ]3"Co1oiN/eat«llfnt reaolnlfoD. - . - -.449 



PC.8O0IA 3'2H Ham Compu'pr CAIL 

PC-S012A l.OlIo" w.iJK Rim CALL 

PC-BOaiADuilHlnlDlil. Drive Unit ..CALL 

Please write lor more InEormaUoOdbour Ihe NEC compuHI. 

Oidermg mlymiariy". Phonp ordprE usinn VISA, MA^TEHCARO, 
AMFJIICAN EXPRESS. DINER'S CUUB. CARTE BLANCHE, l^nril. 
wire IrariEfpr cj»hl,^'t ii ci^l^lcd qhech. mooey riprfcr. -it pL'rHanaL 
chiptk InUuw len djvB lo cleurl Unlvss prcfiold wUhc^Eli.plwiKdUld 
^% (or ihippini. llJtirJILriy .iild Iriumrce (poLniifiLiili '' 001 Callkir- 
hlflrytldenl.ujdb't Ealesiaj Wo nnnml CDIH OEM's, LriabtuhDnB 
4nJ torpoTflikins plnaw 1»inJ lor a lUTlflen qiioljOoii Afl B<^u[pmenf 
]5 urb|?^E Lo prVe cliange and jvalloN'lv u.-tllT()UI nf^i AJ equlp- 
rnpnl IE new and compl^LV Willi mfliiulEwlmpi'a wanuniv I usually 'Kl 
dnyEl Sho^num pflgeE may dlller Iroin ttiaiL aidi-t pricea 

Send Orders to: 

(^___ 

®[M]P50©[?§ MaiJ Order 

8314 Parkway Drive 
La Mesa, CaUfornia 92041 
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will appear, signifying that the 
HILBERT text file containing the Pascal 
program, has been transferred to APPLEO. 

After transfeiring the file, use the 
GET command to load it as the 
workfile. The system responds with: 

GET? 

to which you respond: 

HILBEBT 

The system then loads the workfile with 
a copy of HILBERT, and gives you the 
message: 

TEXT FILE LOADED 

Now you can Q|UIT the filer and 
return to command level, then select 
E(DrrOR. The Pascal program appears 
on the screen. You can explore the pro- 
gram by using Ctri-A to flip between left 
and right half-pages, by pressing 'P' to 
scroll downwards by one full page, or 
change the scrolling direction by press- 
ing ' - ' to scroll upwards or ' + ' to scroll 
downwards. 



When you have examined the pro- 
gram and are ready to try n in ning it, just 
press 'Q' to quit the editor. When you 
do, you will be presented with the 
following choice: 

QUIT 

U(PDATE THE WORKFILE AND LEAVE 
E(XiT WITHOUT UPDATING 
R(ETUHN TO THE EDITOR WITHOUT 

UPDATING 
W{RITE TO A FILE NAME AND RETURN 
SIAVE WITH SAME NAME AND 

RETURN 

Select U and the system writes HILBERT. 
TEXT into the scratch copy of the 
workfile, called SY STEM. WRK. TEXT. 

Now you are ready to R|UN the 
HILBERT program- fust select 'R', and 
the system automatically assumes you 
intend to run the workfile. 

Listing 2, a program named TUR- 
TLE, interprets turtlegraphics com- 
mands. The program is not an all- 
purpose turtlegraphics program. It will 
not interpret all valid tiu-tle commands; 
only a few of them. However, it will run 
as listed. 

To quote an old professor, it is left as 
an exercise to the reader to modify the 
program so that PROCEDURE NOT- 
VALID intercepts all invalid conmiands. 
The reader can also modify PRO- 
CEDURE MIMIC to display the input 



string one character at a time as it is 
typed, so that a mistake can be caught 
and corrected. 

An Editor Sample Session 

Most of the following discussion 
will center around the use of the editor 
to create a file on the disk which con- 
tains the TURTLE program in listing 1. 
This version contains deliberate errors 
for you to fix. This will give you practice 
using the editor. After you enter this 
version you can edit it so that it is the 
same as the working version in listing 2. 

The next step is to clear the 
workfile. At the F(iler level enter the 
L|ist command. Look at the directory 
and see if you have a file called 
SYSTEM, WRK, TEXT. If you do, the 
editor will assume that is the one you 
want to work on. To enter the TURTLE 
program, you will have to clear the 
workfile. If the current workfile is 
something you want to keep, it should 
be saved with a different name, or it will 
be lost for good. 

When you are satisfied that clearing 
the workfile will not cause you to lose 
anything important, enter the N(ew 
command from the Fjiler level. The 
prompt will say 

THROW AWAY CURRENT WORKFILE? 

Responding by 'Y' will clear the 
workfile so that you can enter 
something new using the Ejditor. 

Next, Q(uit the filer and enter the 
Efdit command. The prompt should 
now be 

EDIT: 
NO WORKFILE IS PRESENT. FILE? 
(< RET > FOR NO FILE < ESC-RET> 
TO EXIT) 

Respond by pressing < RET > |the 
'return' key). The prompt will now 
change to 

< EDIT;A(DJUST QPY D{LETE F(1ND 
l(NSRT J(MP R(PLAGE OfUIT X(CHNG 
Z(AP[1.1] 

The cursor will be on the left end of the 
line below the prompt line, and the rest 
of the screen will be blank, since the 
workfile is now empty. 



To start entering program text, press 
T to go to the I|nsert mode. The prompt 
then becomes 

INSERTTEXT ( < BS > A CHAR, < DEL > 
AL1NE)[<ETX> ACCEPTS <ESC> 
ESCAPES] 



The items in the prompt line which 
are enclosed in ' ' represent 
keystrokes. The prompt line is the same 
for all versions of UCSD-based Pascal 
systems, but not all computers have the 
same keys. I have prepared a table of I 
equivalent keys for the Apple, which I 
gleaned by trial and error and digging in- 
to the references |see table 2), ' 



Tabte 2 




System 


Apple Equivalent 


< DEL> 


Control-X 


< ETX> 


Contro!-C 


< BS > 


— (left arrow) 






Control-K 






Shift-M 






Control-O 


i 


Control-L 


<EOF> 


Control-C 


< rAB> 


Control-I 



Now, knowing the keystroke trans- 
lations, you are ready to enter the TUR- 
TLE program. The first six lines of the 
program are comment lines, and axe not 
interpreted as program lines by the com- 
piler. They are recognized by the com- 
piler by the |* and ') delimiters, which 
indicate start of comment and end of 
corrmient, respectively. This serves the 
same function as a ELEM statement in 
BASIC, 

As you get to the end of each line, 
type a 'return', and the cursor will move 
to the beginning of the next line. You in- 
dent by starting the next line with 
spaces. When you type 'return' at the 
end of an indented line, the cursor 
returns to a position on the next line just 
below the first character on the line 
above (indented by the same amount). 
To retiOTi to a previous indentation posi- 
tion, use the left-arrow key to backspace 
to the starting position you want. Now 
type in the TURTLE program, one line 
at a time, as in listing 1. 

When you get to the end of the text, 
you have to tell the system. The system 
expects to get an < ETX > to signify you 
are done entering text. The < ETX!^ 
means "end-of-text," and is typed 
'Control-C on the Apple. When you 
type 'Control-C, the system returns to 
E(dit level. 

At this point you should update the 
disk copy of the workfile in case 
something happens. The TURTLE pro- 
gram file exists only in memory at this 
point, and you don't want to have to 
Start over. 
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* Turtel program 
{• Frlcke 



listing 1 



*) 
*) 
*) 
•) 
*) 



«««««««««»»«•««««*•» 



(• • NOTE: This is HOT a working 
program. It containe intent- 
ional errors to be edited out 
as practice while reading this 
article. Enter it in as shown, 
but DO NOT attempt to compile! •) 

program turtel; 

uses turtelgraphics; 

var input .output: string; 

arpiint,flag,lpOB,rpos,i,J : integer; 
coir iscreencolor; 

procedure notvalid ; 

begin 

input:""not a turtel command' 
end; (*notvalid*) 

procedure getcolor; 

begin 

if po8( 'BLACK', input)>0 
then colri-black 
else if poa('¥HITE',input)>0 
then coin-white 
else if 

pO8('N0BE',input)>0 
then oolr;-none 
elsenotvslid 
end; (•getcolor*) 

procedure getarg; 

begin 

lpoBi''poa{ ' { ' .input); 
rpos:-poe{')* , input); 
argmnt ; "0 ; 

J:-1; 

for i:»rpos-l downto lpos*1 

do begin 

argmnt :-argmnt+{ord( input [i]) 
-ord('0'))*j; 

j:-j"10 
end ("for*) 

end; (*getarg*) 

procedure scanstring; 



begin 

if 

tben 
begin 
fl«g!-1; 
getarg 

end 



(* Look for turtle c^iaand *) 
pos('MOVB',iiiput)>0 



(■Continued) 



When you Q(uit, select Uipdate. The 
workfile will then be saved on the disk 
with the name SYSTEM.WRK.TEXT, 
and the system will return to the com- 
mand level. Now you can go back to the 
editor and continue working on the pro- 
gram without feai of losing what you 
have done so far. 

The W|rite command can be used 
when you are happy with the current 
workfile and want to save it on the disk. 
In our case, if TURTLE were correct, we 
could tise the W|rite command to save a 
copy in a file called TURTLE. The 
Wfrite command could also be used if 
you wanted to temporarily stop working 
on TURTLE and start working on 
something else. 

The UCSD system was set up for 
machines that have cuisor-moving keys 
(up, down, left, and right arrows). The 
Apple has left and right arrows, but the 
up arrow is typed as 'Control-O', and 
the down arrow is 'Control-L'. 

Notice that the Editor prompt line 
starts with 

>EDIT: 

The "greater than" sign can be thought 

of as an arrowhead pointing to the right; 
that is, forward through the text. This 
set direction affects three of the addi- 
tional cursor-moving keys; the spacebar, 
the < return > key, and the < TAB > 
key I'Control-I' on the Apple). The 
spacebar moves the cinsor to the right 
when the set direction is forward and to 
the left when it is backward. 

The < letum > key moves the cursor 
to the beg inning of the next line in the 
set direction; it goes to the begiiming of 
the previous line when the set direction 
is backwards. The < TAB > key 
I'Control-I) moves the cursor to the next 
tab positon in the set direction. There is 
a tab position every eight columns 
across the screen. 



Editor's Note: The ' -h ' or ' - ' keys 
work as well, as do the '.' and ',' keys. 

To chanee the set direction, just 
press the '^ ' key. The prompt line 
becomes 

< EDIT: 



to show that the set direction is now 
backwards. Try experimenting with the 
' < ' and ' > ' keys and the other cursor- 
moving keys we have discussed so far. 
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else if pob( 'PENCOLOS" ,input)>0 
thecbegin 
flag! -2! 
getcolor 
end 

else if posCTUEH" ,irput)>0 
then begin 
flag: -5; 
getarg 
end 

else if po8C"CLEARSCRBEH',irput)>0 
then flag: -4 
else begin 
notvalid ; 
mimic 
end 
end; (*scanBtring*) 

procedure mimic; 

var K.y; integerj 



begin 

xi^turtlei ; 

y :=turtley ; 

pencolor(none); 

movetD( 1 ) ; 

WE t ring ( ■ 

moveto( 1 ) ; 

iiistring( input) ; 

moveto(]i,y); 

pencolor(colr) 
end; (*Biiioic*) 

begin {* Main Program *) 

initturtel; 
readln(input); 
mimic; 
repeat 

scanstring; 
case flag of 

1 : move(argmnt); 

2; pencolnr{coIr) ; 

5: turn(argmnt) ; 

4: fillscreen( black) 



'); (*21 spaces*) 



end; {'cBse*) 

readln{ input) ; 

mimic 
until ( length ( input) =0) ; 
tei:tmode 



(* Exit by pressing 'BET' only ") 



end . 



After 3 short while you will become 
bored with repeatedly typing right ar- 
rows, 'ContToi-L', etc., to move con- 
siderable distances through the text. 
Fortunately, you don't have to do that. 
The system has provided several addi- 
tional features for "hot-rodding" the 
cursor. Say you want to move the cursor 
down eight luies. You have been typing 
'Control-L' eight times to do this, but 
there is an easier way. Type 'SControl- 
L', and voila, the cursor moves down 
eight Imes. The '8' in front of the 
'Control-L' is called a "repeat factor," 
and it can be applied to all cursor mov- 
ing conamands. The repeat factor can be 



any integer, or the character 7'. If '/' is 
used, it means "all the way to the end." 

Another handy feature, the 'P' com- 
mand, moves the cursor one whole screen 
page (24 lines) in the set direction. 

Now that we know how to move the 
cursor around at the E(dit level, it is 
time to fix the errors in TURTLE. Com- 
pare your text to listing 2 and find a 
passage that needs to be deleted. For ex- 
ample, in the line that says 

VAR 

INPUT, OUTPUTSTRING; 



we want to make it say 



VAR 

INPUT:STRING; 

Move the cursor until it rests on the 
comma |the fust character to be deleted} 
while at the E|dit level. Now, type 'D' 
to go to the 0(elete level. The prompt 
line changes to 

> DELETE: < >< MOVING COMMANDS > 
< ETX > TO DELETE, < ESC > TO ABORT 

hut the text remains unchanged. Now, 
using the right arrow, trace over the let- 
ters in ', OUTPUT'. They will disappear 
from the screen, replaced by blanks. 
However, they are not gone from the 
text. If you move the cursor back, the 
letters reappear! The reason is that the 
deletion is not made from the workfile 
imtil you press ETX (Control-C). 
When you do, the deletion is made, and 
all the extra blanks are removed, closing 
up the resulting text. 

The other cursor-moving commands 
work in a similar way. If you move the 
cursor down one line, the remainder of 
the line it started on and all the next line 
to the left of the cursor position dis- 
appears. Those are the characters that 
the cursor would have moved over in 
going from its starting position to its 
ending position one character at a time. 

Now, let's find the line that says 

M0VET0(1); 

which we want to change to say 

W0VET0(1,1); 

While at the E[dit level, move the cursor 
to the right parenthesis; i.e., to the right 
of the '1', where we want the insertion 
to begin. Now press T to get into the 
I|nsert mode. It looks like the rest of the 
line disappears, but it doesn't. If you flip 
over to the right half of the screen (by 
pressing 'Control-A'), you will see that 
the remaining characters have been 
moved all the way over to the right end 
of the line to make room for the 
insertion. 

Next, type in the ',1' and then 
'ControI-C to complete the insertion. 
The last two characters are moved back 
to the left to close up the line, and the 
insertion has been made. 

Now. correct the indentation posi- 
tion of a line by placing the cursor on 
any character m the line and pressing 'A' 
to go to the A|djust level. The prompt 
line becomes 



i 
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> ADJUST:L{JUST R(JUST C(ENTER <LEFT, 
RIGHT.UP, DOWN-ARROWS > < ^TX.> TO 
LEAVE 

To move the whole line left, press 
the left anow; to move it right, use the 
right anow, and to move it all the way 
to the left edge of the screen, press 'L' . If 
you want to indent a whole block of 
lines the same amount, use 'Control-O' 
or 'Control-L', and the next line up or 
down will be indented to the same posi- 
tion. Pressing 'Control-C implements 
the changes, as with the other commands. 

For multiple changes of the same 
kind, use the R(eplace command. For 
example, you should really spell 
TURTLE, T-U-R-T-L-E, not T-U-R-T-E-L. 
You can use the Rieplace command to 
change TURTEL to TURTLE wherever 
it occurs. Put the cmsor at the beginning 
of the file and press 'R' . The prompt line 
becomes 



REPLACE[1]: KIT V(Pi'<TAHGXSUB> => 

The number in brackets is the number 
of times the command has been invoked. 
If you wanted to find all occurrences of 
TURTEL but did not know how many 
there were, you should have used the 
"infinite" repeat factor; 



;r 



The '/' repeat factor insures that all oc- 
cunences of TURTEL wiii be found. 

Next press 'L' to select a literal 
search. Two types of searches can be 
made: literal and token. The default 
mode is a token search which looks for a 
string that is isolated by spaces on either 
side, while a literal search looks for all 
occurrences of the string, even those 
within a larger string. 

Now press 'V to select a V[erify 
search. If you do not, for all instances 
where the target string occurs, the sub- 
stimte string will replace it. In the 
V|erify mode the system stops at each 
occurrence of the target string and asks 
if you really want to make the 
substitution. 

The final two items in the prompt 
line are < TARG > and < SUB > which 
stand for the "target string" (what to 
search for in the existing text], and the 
"substitute string" (what to replace the 
target string with), respectively. These 
strings have to have the '/' delimiter at 
their beginnings and ends. There are 
other delimiters that can be used, but I 
always use '/'. 



(• •) 

{• Turtle program *) 
(• Fricke •) 

(* *) 

(• listing 2 •) 

(• *) 

/••«»•••«««•*»«'»«««'«'« ; 

(* HOTE: This program requires 
UPPERCASE only as input *) 

program turtle; 

uses turtlegraphicB ; 

var input: string; 

argmnt ,flee,lpos,rpos,i, j: integer; 
coir: screencolor; 

procedure notvalid ; 

begin 

inputj='not a turtle command' 
end; (•notvalid*) 

procedure getcolor; 

begin 

if poa('BLACK' ,input)>0 
then colr:'black 
else if pos('¥HITE',input)>0 
then colr;=white 
else if poa('HONE',input)>0 
then colr:-none 
else notvalid 
end; (•getcolor*) 

procedure getarg; 

begin 

lpos:-pos( ' ( ' .input) ; 
rpos:=pos( ' ) ' , input) ; 
argmnt:-0; 

for i:=rpos-! downto Ipos+I 
do begin 

argmnt :''argmnt»(ord ( input [i]) 

-ordCO'))»j; 
3:-j«10 
end (♦for*) 
end; (*getarg*) 

procedure mimic; 

vsr i,y: integer; 



begin 

X! "turtles; 

y;-turtley; 

pencolor(none) ; 

moveto(l , 1 ) ; 

wstringC ' 

inoveto(l , 1 ) ; 

watring(input) ; 

nioveto(j:,y); 

pencolor(colr) 
end; (*mimic") 



'); (*2\ spaces*) 



procedure acanatring; 



Look for turtle command *) 
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Listing 2 (Continued) 

begin 

if poaCMOVE' ,input)>0 
then begin 
flag:-1i 
getarg 
end 

elee if pOB( 'PENCOLOR' ,input)>0 
thee begin 
flag! -2; 
getcolor 
end 

else if poB('TUEN',input)>0 
then begin 
flfl«!-3! 
getarg 
end 
else if pooC'CLEARSCEEBN' ,input)>0 

then flag! -4 
else begin 

notvalidi 

mimic 
end 
end; (*scanstring*) 

begin (• Main Program *) 

initturtle; 
readln( input) ; 
mimic; 
repeat 

acanstring; 
case flag of 

1 : move(areiimt) ; 
2: pencolor( coir) ; 
5: turn(argmnt) ; 
4: fill3creen( black) 
end; ("case*) 
readln(input) ; 
mimic 
until (length(input)=0); {" Enit by pressing 'BET' only *) 

textmode 
end . 



So, in summary, staning from the 
E(dit level with the cursor at the begin- 
ning of the text, type 

mLV/TURTEU/TURTLE/ 

After you type the last V the 
replacement search will begin. The cur- 
sor will stop at the first line where 
'TURTEL' appears; 

PROGRAM TURTEL: 

and the prompt line becomes 

> REPLACE:< ESC >ABOflTS, 'R' 
REPLACES, ■ ■ DOESN'T 

If you want the replacement made, press 
'R' and the line becomes 

PROGRAM TURTLE; 



and the search continues imtil all occur- 
rences of 'TURTEL' have been found. If 
you want to leave one occurrence un- 
changed, just press the space bar and the 
system continues the search. 

The last editor featme that will he 
covered is the C(opy command. This 
can be quite useful for moving blocks of 
text around. 



When you make a change in the text 
of the workfiie asing Ijnsert or D(elete, a 
copy of the change is made in a separate 
area of memory called the "copy 
buffer." As you add characters in the 
[jnsert mode, ^ach additional character 
goes into the copv buffer, until you ter- 
minate the insertion with an < ETX > 



or<ESC>. The<: ESC > cancels the 
msertion horn having an effect on the 
workfiie, but the copy in the copy buffer 
remains. Similarly, for a deletion, the 
deleted characters go into the copy buf- 
fer as they are removed from the screen. 

If you had typed in PROCEDURE 
MIMIC after PROCEDURE SCAN- 
STRING in the TURTLE program, you 
would get an error in compilation 
because PROCEDURE SCANSTRING 
invokes PROCEDURE MIMIC which 
has not yet been defined when the com- 
piler tries to interpret PROCEDURE 
SCANSTRING. What you want to do is 
to move PROCEDURE MIMIC to a posi- 
tion before PROCEDURE SCAN- 
STRING. You have to delete PRO- 
CEDURE MIMIC from its position after 
PROCEDURE SCANSTRJNG and insert 
it before PROCEDURE SCANSTRING. 
To do this, use the Ciopy command. 

The first step is to delete PRO- 
CEDURE MIMIC. Place the cursor on 
the *P' in PROCEDURE. Press 'D' to go 
into the D|elecc mode. Press 

< RETURN > repeatedly to erase suc- 
cessive Imes of PROCEDURE MIMiC. 
When all the lines are gone, press 

< ETX > to effectuate the deletion. 
Remember, PROCEDURE MIMIC is 
gone from the screen, but it is still in the 
copy buffer. 

Now move the cursor to the begin- 
ning of the blank line before PRO- 
CEDURE SCANSTRING. This posi- 
tions the cursor at the point where we 
want the copy of PROCEDURE MIMIC 
to be inserted- Press 'C to go to the 
Cjopy level. The prompt line becomes 

qOPY: B(UFFER F|ROM FILE<ESC> 

Next press 'B' for B(uffer, and the inser- 
tion is made. 

You also have the option of copying 
from a disk file as well. This feature 
allows you to insert a debugged pro- 
cedure from another program or to work 
on a large program in several pieces. To 
copy from a disk file, just press 'F' after 
the 'C for C|opy. The prompt line will 
change to say; 

> COPY: FROM WHAT FILE 
[MARKER.MARKER]? 

Markers point out strategic places in 
a long text file. Unfortunately, the 
system will tell you how many markers 
you have used and their names, but not 
where they are. Markers also do not 
show on the screen, if you are interested 
in using them, consult the manual. 
~" MCRO' 
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Speed 
Power 
Efficiency 



for 



OSI 

65D3 SYSTEMS 



: 



FBASIC: BASIC Compiler $155/$10 

• FAST efficient machine code written 
with the ease of BASIC. 

• SPEED-optimized, native-code compiler. 

• INTEGER subset of OSl-supplied BASIC. 

• DISK based: No problem with size of 
source or object files, 

• EXTENSIONS to BASIC: 

- Simple interface to system liardware 
and software. 

- Direct access to 6502 registers. 

- Array initialization, 

- Optional absolute array locations. 

- WHILE and other structures. 

- Simple technique for combining 
compiler and interpreter advantages. 

• FULL system: utilities {plus source), 
manual, and many useful examples. 



R-EDIT: Edit any program 
or text with ease! 



$40 



FULL CURSOR control. Edit anywhere on 

the screen. 

INSERT, replace, add, delete. 

ONE KEY stroke and you're editing. 

BASIC, assembler, etc. can all be 

edited without reloading editor. 

RAM- resident: Always ready! 

SYSGEN relocates R-EDIT and customizea 



SPUL-65: Printer Spooler $95/$10 
Virtual Indirect File 

• STOP WAITING tor your printer! 

• PROCESS words, write programs...all 
while printing! 

• QUEUE lets you pile on print jobs. 

• MULTIPLE COPIES printed with top and 
bottom page margins. 

• SYSGEN relocates SPUL65 and gives 
extensive customization. 

• INDIRECT FILE commands produce disk 
files giving you: 

- A virtually unlimited temporary file. 

- A link between incompatible files; 
for example, use WP-2 tor extensive 
BASIC editing. 

- Ability to merge multiple program 
segments. 



XREF: BASIC Cross Referencer $25 

• TABULATES: 

- Referenced line numbers. 

- Variable names (numeric, string, 
array). 

- Defined functions. 

• FAST machine language program. 

• DISK based: Handles large BASIC source 
files on any drive. 




fioore 



CP/M to OSI Disk Translation 

Frustrated by all those good CP/M disks 
that won't run on your OSI CP/M system? 
irs that special OSI disk format! And 
we can fix that. Just send us your disk 
$15, and you'll soon have an OSI compat- 
ible disk. 



Data Resource Corporation 

Suite 204 

1040 Lunaai Street 

Kailua, HI 96734 (808)261-2012 



Manual orders applied to software 
purchases. Programs supplied on fl-in, 
single-density, single-sided disks. 
Hawaii residents add 4% tax 



Now You Have 


'ThE ChoicE" 


Reliability, Quality and Performance at a reasonable Price. Systems International, Inc. is pleased 
to offer an alternate to Ohio Scientific microcomputers. Our systems are 100% compatible to OSI 
OS-65D and OS-65U software to preserve your software development investment. Just load your 
present floppies and run; no conversion of software needed or required. Compare the Following 
Facts and Make "The Choice, " 


Ohio Scientific, Incorporated 

Standard Features 

C2-0EIVI 


Systems International, Incorporated 

Standard Features 

The Choice II 


48K Memory, 1 MHz 

One Serial Port 

Dual 8" Single Sided Floppies 

Plug in Boards with Many Connections 

120 Volt 60, Hz Operation Only 

90-D3y Warranty 

Weight 80 Pounds 

SizeW17" X H9!/?" x D23'//' 


48K Memory, 2 MHz 

2 Serial Ports. 1 Parallel Port 

Dual 8" Double Sided Fiopoies 

Single Board Construction for Reliabilitv 


120/240 Volt 50/60 Hz Operation 

180-Day Warranty 

Weight 40 Pounds 

SizeW12'/2" X H13'//' x D16" 

Shippable by UPS in Factory Carton 


Extra Cost Items 


Extra Cost Items 


Second Serial Port 

Parallel Port 

2 MHz 


None 


Now Compare tIie Bottom Une ANd MaIce ^ThE ChoicE^^ 


Total Retail $4,925.00 * 


Total Retail $4,525.00 
240 Volt 50 Hz Operation add S50.00 



Future plans include the "Choice III" which is 100% compatible to the OSI C2-D 8" V^inchester 
System. Also Multi-user V\/inchester Hard Disk System that is 100% compatible with Ohio Scien- 
tific OS-65U Level 3 Software. 

RcMEMbER — ThERE IS "TIlE CkolcE'' TO ckoOSC A bsTTER SySTEMi 

Domestic and International Dealer and Distributor Inquiries are Invited, Discounts to 40% 
• Ohio Scientific Price List June/July 1981 



15920 Luanne Drive 

Gaithersburg, Maryland 20760 

U.S.A. 

Tel. (301) 977-0100 Twxi 710-828-9703 



i\\ 



500 Chesham House 

150 Regent Street 

London W1R5-F.A England 

Tel. 01-439-6288 71x261426 
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i Auto Line Numbers for OSI 

Disk BASIC 



Auto line numbers for OSI disk 
BASIC imitate large computers 
and make programming easier. 



Lester Cain 

1319 N. 16th 

Grand Junction, Colorado 81501 



Software support for the OSI is improv- 
ing, but is still minimal, and users have 
to develop many of their own programs. 
Actual programming with flow charts 
and algorithms is part of the pleasure of 
developing your own program. But 
when it's time to input to the machine, 
some of the fun flies out the window. 
With all the necessary keying, line 
numbers are an added detriment and 
detract from the pleastires we do get 
from writing programs. 

Some of us are familiar with large 
mainframe computers, which have an 
AUTO function and put out line 
numbers for you. This hinction is 
definitely a plus and should be available 
to all of us. 

This manuscript explains a simple 
and easy-to-use program, which will 
give us an AUTO function to use in 
relieving some of the tedious burden of 
typing. Included are two listings, one in 
assembly language and the other in 
BASIC. This should work on the CIP 
disk BASIC also. The logic is easy to 
follow and could be put to use on ROM 
machines also, with different hooks. 
But we will leave that as an exercise for 
persons with ROM. 

Listing 1 is the assembly language 
routine necessary to develop the pro- 
gram. In OSI disk BASIC, the routine to 
get a character from the keyboard and 
incorporate it into the BASIC Source 
begins at $558 which is LDX #$0. At the 
next address, or $55A, we will put in a 
hook to make BASIC jump to oin- AUTO 
program. This is accomplished in line 
310 of listing 2. This will force mforma- 
tion to go through our code before 
BASIC can do anything with our key- 
board information. 



Listing 1 



8000 208705 

8003 48 
8004 

8004 C906 
8006 D006 
8008 A900 
800ft eSDB 
800C 85D9 
800E 

BOOE C91B 
6010 D004 
8012 E6De 
8014 E6D9 
8016 ft5Ee 
8018 D004 
eoiA A5D9 
eOlC F004 
801E 68 
801F 4C5D05 
8022 

8022 68 

8023 fi940 
8025 856C 
8027 ft9D7 
8029 856D 
802B ASDft 
8C2D IB 
802E 69QA 
6030 BSm. 
8032 9002 
8034 E6Ee 
8036 

8036 A6nA 
6038 ASrS 
803A 
803A 
803A 
803ft 

803A 20EC1C 
803D 98 
803E AA 
803F 48 

8040 88 
8041 

8041 B16C 
8043 99LA00 

8046 88 

8047 D0F8 
8049 68 



MTTO LINE NUMBERS 
EDR OSI CAP 



SO. 
SCR 

BUF 



BY LES CAIN 

EPZ S6C 
EPZ S6D 
EPZ 51A 



BASIC EQO S0S5D 
INPUT ECU 50587 
LINE ECflJ SICDC 



TH 

LO 
HI 



EPZ Sue 

EPZ THt-1 
EPZ TH+2 
EPZ TW-a 

OEG S8000 



START JSR INPtlT 
FHA 

AUTCW CMP #S06 

SHE flUTCFF 
LDA #S00 
STA TO 
STA FH 

AKTOFF CMP #S1B 
EME BAO^ 
INC TO 
INC FH 

BACK LDA TO 
B»E BK 
LDA FH 
PB2 Aim) 

BK PIA 

BKl JMP BASIC 

AUTO PLA 

UR #540 
STA SCL 
LOA »SD7 
STA SCH 

lOA m 
etc 

ADC #SOA 
STA LO 
BCC ASCUT 

nc HI 

ASCUr LDX LO 
IJ» HI 



tIM:IMAL 218 



;BASIC INPOT BCtTTDJE ESfT HEBE 
rSAVE CHARAC7TER 

jCTBL F 

;YES, TURK CJI AUTO 

;A17!D FLAG 

;FIAG TO BYPASS AUIO 

;ESC 

;TEST nJGS 

jTORN OTF MHO FLAGS 

GETT AUTO FLAG 

NOT A 0~Bfla< TO BASIC 

CR FLW5 MADE WITH A CR 

IF THHJ CCKTOIUE WITH LINE #'S 

OTr BflOt SAVED CHRPACIER 

BK TO BASIC WITO CHAR. IN ACC. 

PJIIj off SAVED CHABWTIER 
LO BTFE OF SCPESI ADCRESS 
INITIALIZE ISDIRECF POISIERS 
HI BYTE OF SCBEEM ADIWESS 
INITIALIZE HI BYTE 
U> BYTE OF LINE BO. 

LINE NO. ISCREWHW 
SAVE IT PDR NEJCT TIME 
■KOT #SFF 
ADD 256 TO Lllffi HO. 

LO BYTE OF LINE NO. 
HI BYTE OF LINE NO. 



CCW/ERTS BINARY NLMBER TO ASCII STRDK AND POTS TO BCREQI 
USED TO OOTPUT LINE NO. ' S VHQJ LIRTING 



SCR 



JSR LINE 

TYA 

TAX 

PHA 

DEY 

IDA (SCL),Y 
STA BUF,Y 
DEY 

BNE SCR 
PIA 



BASIC ROUTINE FOR T«E LINE NO. 
CTTT Y FBCM CWTPOT ROUTINE 
SAVE IT IN X 

BYPASS SPACE AFTCR OJRSMl 

CHARACTER FRCW SCREQJ 
RJT IN BASIC BUFFER- 1 

NOT TO END OF LINE NO. CN SCRBIM 
GET BACK Y 



{Continued on next page. 
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Now we are at routine START in the 
assembly routine. Since we put a hook 
here to make BASIC lump, we will have 
to perform the routine that was originally 
there, getting a key from the keyboard. 
At AUTON we test for a control '¥.' If 
this key is encountered here, the two 
Auto flags are set to zero and the pro- 
gram will fall through to the AUTO 
routine. If there is no control 'F,' then 
test for an ESC at AUTOFF. If there is an 
ESC, turn off Auto flags TH and FH and 
go back to BASIC with the character in 
the accumulator. If no ESC is found, test 
Auto flag TH. If TH is not zero then we 
test the secondary flag FH. This flag is 
turned off in the SCR routine, so con- 
stant line numbers are not output. If FH 
is zero then we are ready for a new line 
number and fall through to the AUTO 
routine. 

AUTO is a simple addition and 
increments the line number by 10 at 
every pass. AUTO also initializes the in- 
direct screen pointers. This need only be 
done once, but why take chances? 
BASIC might decide to stick something 
at these addresses. 

One of the keys to our whole pro- 
gram is the ASOUT routine. The line 
number is loaded into the accumulator 
and the X index. A fSR to the BASIC 
routine LINE (SICDC) will output an 
ASCn string from the binary values in 
LO and HI to the screen at ciusor level. 
BASIC uses this routine to output line 
numbers when listing. 

This brings us to the most important 
segment of the program — getting 
BASIC to accept the line number we 
have created. It must be in an acceptable 
format and in the input buffer. We use 
the Y index for LINE, and decrement it 
by one to get us to the cursor. Here 
storage is started into the buffer. After 
the line number is in, the X index is 
decremented and we write on top of the 
cursor with a space. BASIC uses X to 
point into the buffer. From here it's back 
to the keyboard with a space after the 
last digit of the line number. Here we 
also turn off the CR flag FH, by simply 
incrementing it. 

Now for the last segment of the 
assembly program, the CR routine. We 
have put a hook into BASIC with the 
statement in line 270 of Hsting 2. BASIC 
^N'fll jump here when it finds a carriage 
return. We tirni to the back of flag FH; if 
the main Auto flag TH is on, the AUTO 
process will continue until an ESC turns 
off both flags. To end the program we 
have a jump to $A6D. This puts the buf- 
fer pointer into the CHARGET routine 
and checks the syntax to determine if 
what we just did was an immediate 
command or a line number. It is a line 



Listing 1 (continuedl 

804A A6 TAY .-BEOTORE Y FDR DISPIAY FURFOCTS. 
S04B CA CBC fBYPASS CURSOR, X IS EUFFER INTEf 


804C E6D9 
B04E A920 
8050 DOCB 
B052 


nC FH rTOPN OFF CB FUC 

lift #S20 ; SPACE 

BNE BKl jJIjMP TO BASIC WITH SPACE IN ACC. 


8052 
8052 
8052 

8052 A900 
8054 3509 
S056 4C6E0A 


;PftTCH ETKN BASIC PCKES TO HESTOBE AUTO FLAG 
;Afi'fcK A CR IS RECEIVED IHTO INPOT HCUTINE 

CR IDA #500 fTOSN BACK CW AUTD EIAG 
STA FH ;CR FLAG 

JMP S0A6D jBACK TO BASIC ADDPRIS PATCJiED 
FNO 



— AUTO LINE NLMBERS — 

— FDR OSI 4P AND BP DISK SYSTHME — 

— VTORKS FDR ftWY SIZE MaOFW — 

—POfE NEW HIGH MHORY TO SAVE COT® — 



POKE 133,Si BUH 180 



Listing 2 

100 RiW 

110 REW 

120 REM 

130 RFK 

140 BSl 

150 Rai 

160 REM 

170 S = PEEK (S960): PCKE 132,143i 

180 P = PEEK [8«0) 

190 REM 

200 REM — X IS BEGIN ADDRESS TO PCKE CODE — 

210 BEN 

220 X = P • 256 + 144i EDR I = X TO X -^ 881 BEftD Ai PCKE I,A: HEKT 

230 REM 

BEM ~ PC*E A JUMP TO MACHINE CODE AT S584 

REM — P IS THE man BYTE ~ 

PCKE 1412,76: FQKE 1414,P: PCKE 1413,226 

Ba4 

REM ~ POKE JUMP TO MftCHINE COM: AT S5SA ~ 

BEM 

PC*E 1370,76i PCKE 1371,144: POKE 1372, P 

REM 

PRIHT : PBIOT "BEAI«" : PRIOT 

PCKE 218,90: PC3<E 219,0: END i SEW 90 IS BS3I1«JIM3 LINE NO. 

REN 

REN — DATA FDR MACHINE CODE ROUTINE ~ 

EftTA 32,135,5,72,201,6,208,6,169,0,133,216,133,217,201,27 

DATA 208,4,230,216,230,217,165.216,206,4,165,217,240,4,104,76 

DATA 93,5,104,169,64,133,108,169,215,133,109,165,216,24,105,10 

REM THIS IS TKE INORDlENr * 



240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
395 
400 
410 
420 



CftTft 133,218,144,2,230,219,166,218,165,219,32,220,28,132,170,72 
DhTA 136,177,108,153,26,0,136,208,248,104,168,202,230,217,169,32 
DATA 208,205,169,0,133,217,76,109,10 



number so all pointers will be reset and 
the line is entered into the BASIC 
source. 

The BASIC program as shown is all 
that is necessary to have the AUTO 
function on our system. Line 170 deter- 
mines the highest page of RAM on our 
system and sets the high end of BASIC 
work space to protect the object code. 
Statement 220 POKEs the code into the 
appropriate area of memory by reading 
the data and POKEing it to I. Statement 
270 puts in the intercept jump to reset 
the secondary Auto flag. Statement 310 
puts the hook for getting characters into 
the original BASIC routine, for our test 
routine. Since the machine code is com- 
plety relocatable, the only variable is P 
which BASIC puts in 8960 on boot in, 
indicating the highest page in RAM. 

The REM statement in the data in- 
dicates the location of the beginning line 
number. This could be changed if we 
don't want to start a line number 100, 



Both the listings are included here to 
give a choice of how we want to imple- 
ment the AUTO routine. The assembly 
method could be used in the free area 
before BASIC workspace, on the mini- 
disks. One word of caution here: some 
of the new software out has a revised 
keyboard routine in this area. This way 
the program would be available all the 
time and not used as free RAM. Or, the 
BASIC program could be mn from 
BEXEC". The BASIC listing was made 
using the AUTO function. 

A few words here on the use of our 
finished program. The two flags are 
turned off at first and must be turned on 
with a Control F. After the program is 
on, it will continue to put out line 
numbers until an ESC is encoimtered. 
The ESC can be either in the line or 
before another line is put out. Simply 
press the space bar to continue after 
each carriage return. This is still a lot 
more convenient than typing line 
numbers in, 

MCRO 
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GRAPHICS 

FOR OSI COMPUTERS 

iV You Can Produce The Images 
Shown Or Yours And Program 
Motion With Our 256 By 256 High 
Resolution Graphics Kit. Jii 

Thats 65,536 Individually Controlled 
Points On Your TV Screen. 

iV increase Column/Line Display. 
You Can Set Up Your Own Graphic 
Pixels Including Keyboard Characters 
And Unlimited Figures. ^ 

^ This Kit Includes All Parts, Software 
And Assembly Instructions Required 
To Get Up And Running. 
The Included 8k Of 2114 Memory 
Is Automatically Available When 
Not Using The Graphics. 
Boot Up And See 8k More Memory. 

^ Adding The Kit Does Not Affect^ 
Your Existing OSI Graphics. 
Use Both At The Same Time 
Or Separately. 

ix Buy The Entire Kit, 

Including Memory, For $185.00 
Or A Partial Kit For Less If You 
Have Parts. Board And 
Instructions $40.00 . Instructions 
Include Software. 




^r 


ME 

U01S 



For This Kit Or A Catalog 

Of Other Kits, Software 

And Manuals Call Or Write: 

MtTTENDORF ENGINEERING 

905 Villa Neuva Dr. 

Litchfield Park, Az. 85340 

(602)-935-9734 




inc. 



BOX 120 

ALLAMUCHY, N.J. 07820 

201-362-6574 



HUDSON DIGITAL ELECTRONICS INC. 

THE TASK* MASTERS 

HDE supports the *TIM, AIM, SYM and KIM (TASK) with a growing line of computer programs and 
peripheral components. All HDE component boards are state-of-the-art AVi" x 6W, with on board 
regulation of all required voltages, fully compatible with the KIM-4 bus. 



OMNIDISK 65/8 and 65/5 

Single and dual drive 8" and 5Vt" disk systems. 
Complete, ready to plug in, bootstrap and run. 
Include HDE's proprietary operating system, 
FODS (File Oriented Disk System). 



DM816-M8A 

An 8K static RAM board tested for a minimum of 
100 hours and warranted for a full 6 months. 



DM816-UB1 

A prototyping card with on-board 5V regulator 
and address selection. You add the application. 



DM81 6-P8 

A 4/8K EPROM card for 2708 or 271 6 circuits. 
On board regulation of all required voltages. 
Supplied without EPROMS. 



DM816-CC15 

A 15 position motherboard mounted In a 19" 
RETMA standard card cage, with power supply. 
KIM, AIM and SYM versions. 



DISK PROGRAM LIBRARY 

Offers exchange of user contributed routines 
and programs for HDE Disk Systems. Contact 
Progressive Computer Software, Inc. for details. 



HDE DISK BASIC 

A full rangedisk BASIC for KIM based systems. 
Includes PRINT USING. IF... THEN... ELSE. 
Sequential and random file access and much 
more. $175.00 

HDE ADVANCED INTERACTIVE 
DISASSEMBLER (AID) 

Two pass disassembler assigns labels and con- 
structs source files for any object program. 
Saves multiple files to disk. TIM, AIM. SYM, KIM 
versions. $95.00 

HDE ASSEMBLER 

Advanced, two pass assembler with standard 
mnemonics. KIM, TIM, SYM and KIM cassette 
versions. $75.00 {$80.00 cassette) 

HDE TEXT OUTPUT PROCESSING SYSTEM 
(TOPS) 

A comprehensive text processor with over 30 
commands to format and output letters, docu- 
ments, manuscripts. KIM, TIM and KIM cassette 
versions. $135.00 ($142.50 cassette) 

HDE DYNAMIC DEBUGGING TOOL (DDTl 

Built in assembler/disassembler with program 
controlled single step and dynamic breakpoint 
entry/deletion. TIM, AIM, SYM. KIM AND KIM 
cassette versions. $65.00 ($68.50 cassette) 

HDE COMPREHENSIVE MEMORY TEST 

(GMT) 

Eight separate diagnostic routines for both 
static and dynamic memory. TIM, AIM, SYM, 
KIM and KIM cassette versions. $65.00 {$68.50 
cassette) 



AVAILABLE DIRECT OR FROM THESE FINE DEALERS: 



Progressive Com pule r Software 
405 Cor bin Road 
York, PA 17403 
(717)845-4954 



Johnson computers 

Box 523 

Medina, Ohio 44256 

(216)725-4560 



Lux Associates 
20 Suniand Drive 
Chico, CA 95926 

(916)343-5033 



Falk-BakerAssociates 

352 Franklin Avenue 

Nut ley, NJ 07110 

(201)661-2430 

Laboratory Microcomputer Consultants 

P.O. Bo« 84 

East Amherst NV 14051 

(716)689-7344 



Perry Peripherals 

P.O. Box 924 

Miller Place, NY 11 764 

(516} 744-6462 
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Some Help for KIM 



Part 1 



-> 



The usefulness of the KIM 
memory dump routine is 
extended by utilizing software 
that dumps memory in a 
program-like format. 



Wayne D. Smith 

Box 8352 

Austin Peay State University 

Clarksville, Tennessee 37040 



The KIM-1 microcomputer comes com- 
plete with an excellent set of software 
routines built into the ROM section of 
the computet. In fact, one of the strong 
points of the KIM is its use of software 
to perform many of the fimctions accom- 
plished with hardware in other systems. 
The largest percentage of the KIM soft- 
ware is written in the form of sub- 
routines, which makes it easy for the 
user to take advantage of already ex- 
isting software when writing his own 
programs. 

Two KIM routines that are used ex- 
tensively with hand assembled pro- 
grams are the memory dump program 
and the single-step software routine. 
These programs usually prove to be 
valuable to the user during the initial 
phases of program development. As use- 
ful as these routines are, however, both 
can be modified to provide additional 
features to the user. This month we will 
look at improving the memory dump 
format. In future months we will look at 
improving the single-step feature. 



Listing Piograms 

The major deficiency in the memory 
dump routine lies in the format in 
which the data is displayed. The pro- 
gram is intended to provide both a hard 
copy listing and a reloadable paper tape. 
The format consists of a semi-colon, 
then the number of bytes to be printed 
(usually 18 hex), followed by the start- 
ing address, and finally the memory 



■ fi PROURHH TO LIST KIM FROOROHS IN THE FORMflTi 



3 



HDDR OP opeeoND 



I THE PROGRfid CHECKS THE OPERATION CODE 

I fHND PRINTS THE CORRECT NUMBER OF OPERHND 

I BVTES FOB ERCH TVPE INSTRUCTION. 











N014L 


.DE tEO 










NDWH 


.DE lEl 










SftL 


.DE J17F5 










SON 


.DE tl7F6 










EHL 


.DE tl7F7 










EHH 


.OE *irFS 










Kin 


.DE S1C4F 










aii.F 


,DE *1E2F 










PRTBVT 


.DE I1E3EI 










OUTSP 


,DE *1E3E 










1 


.60 IIL'OO 


1O0L3- 


ss 






PGMDMP 


PHP 


leei- 


OS 








CLD 


1002- 


£8 


2F 


IE 




JSR CRLF 


1005- 


50 


2F 


IE 




JER CRLF 


1008- 


flO 


F5 


17 




LDH SRL 


100B- 


S5 


EO 






STH *NONL 


100D- 


HID 


F6 


1? 




LH SHH 


1010- 


05 


El 






STR *MCrWH 


L012- 


ns 


EO 




NftlNLP 


LOR *ND14 


lOM- 


CD 


F7 


17 




CHP ERL 


1017- 


ftS 


El 






LDR *NOWH 


iai9- 


ED 


F3 


17 




SBC EHH 


101C- 


90 


07 






BCC RNOTHR 


iBie- 


20 


2F 


IE 




JSR CRLF 


1021- 


2S 








PLP 


lOEE- 


4C 


4F 


IC 




JMP KIM 


1025- 


20 


2F 


IE 


FINOTHR 


JSR CRLF 


102S- 


H5 


El 






LDR *NOWH 


1020- 


20 


3Ei 


IE 




JSR PRTBVT 


1020- 


05 


EO 






LDR »NOWL 


1«1£F- 


20 


3B 


IE 




JSR PRTBVT 


1032- 


02 


03 






LDK »t03 


1034- 


HO 


00 






LOV »»00 


1036- 


Bl 


E0 






LDR ':nonl>.v 


1030- 


40 








PHH 


1039- 


29 


OS 






HND «t0S 


103B- 


DO 


28 






BNE PRRT2 


103D~ 


es 








PLR 


lose- 


4S 








PHR 


ie3F- 


29 


03 






RND tt»B3 


1341- 


C9 


03 






Cfip twos 


1043- 


F© 


46 






BEQ ONE 


1045- 


6S 








PLR 


1046- 


4S 








PHR 


1047- 


29 


0F 






RND ll»OF 


1049- 


DO 


41 






BNE TtlCl 


1040- 


60 








PLfi 


104C- 


40 








PHFI 


1040- 


29 


70 






RND dtro 


ia4F- 


F0 


3H 






BER ONE 


lasi- 


60 








PLR 


1BS2- 


40 








PHR 


1B53- 


29 


FB 






RND «*FQ 


1855- 


C9 


20 






CMP «»28 


1657- 


FO 


34 






BEQ THREE 


1059- 


63 








PLR 


105H- 


48 








PHH 


105B- 


29 


D0 






RHD B»D0 


105D- 


09 


40 






CMP #«40 


leSF- 


F0 


2R 






BEO ONE 


1061- 


DO 


£9 






BNE TUO 


1063- 


F0 


HD 




BTML 


BEa MHIHLP 


1065- 


iSS 






PRRT2 


PLR 


10S6- 


40 








PHfl 



:THE flDDR. OF THE OP. 

: CODE BEING- PRINTED NOW. 

INHERE LISTEEi PROG. STRRTS 

: (TUCi BVTES) 

7UHEP.E LISTED PROORR" ENDS 

J 'l '.TWO eVTES) 

.-Kin RETURN RDDRESS 

.-Kin CBRR. RETURN ROUTINE 

,-Kl(1 PRINT fl BVTE ROUTINE 

:Kin PRINT R SPRCE ROUTINE 

JIRELOCRTRBLE' .BR - ORO 

iSRVE MRCHINE BTRTUS 
iCLEFhR DECIMHL MODE 
iPRINT TWO BLANK LINES 
r FOR HERTNESS SAKE. 
fSET "NOW" TO STRRT. RDDR. 



jCHECK FOR END OF DUMP 



;IF NOT. DO RNDTHER. 

;RT END. DO BLHNK LINE. 
; RESTORE STHTUS, 
; RND BRCK TO KIM. 

; STRRT H MEW LINE. 

: PR I NT HIGH ORDER fiODRESS 

I RND 

: LOW ORDER. 

;SET TO PRINT 3 BVTES. 

iSET RDDR OFFSET TO 

:GET ne^;t dp code 

: RND SRVE ON STOCK. 
;IF BIT 3 IS ON, THEN 
I OO TO PftRT 2. 
;ELSe RECOVER OP CODE 

:IF LSD IS 3 OR 7, THEN 
: TREOT OS O ONE -BVTE 
I INSTRUCTION. 
I ELSE RECOVER OP CODE 

:IF LSD IS NOT 3, 7, OR 0, 
: TREAT RS 2-eVTE INSTR. 
.■SINCE LSD IS ZERO, 
! TEST MSD HERE. 

:IF MSD IS e OP s, then 

1 TREHT RS 1-SVTE INSTR. 
,-ELSE . 

rIF MSD IS 2. THEN 

I TREPT RS R 3-BVTE INSTR. 

/ELSE, 

tIF MSD IS 4 OR 6, THEN 

,- TRERT OS R l-BVTE 

I INSTRUCTION. 

fflLL OTHERS RRE 2 BVTES. 

IPRTCH BRRNCH TO MfllNLP 
;<BIT 3 IS ON HERE> 
I RECOVER OP CODE 



(Continued on next page) 
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1067- 

1 Lies- 

1066- 
1060- 
106E- 
106F- 
J071- 
1073- 
10?'5- 
1076- 
1077- 
1079- 

lere- 

1070- 
1076- 
107F- 
10S1- 

ies3- 
ies4- 

10S5- 
10B7- 
1SIS9- 
103B- 
108C- 
leSD- 

leee- 
lesF- 

1030- 
1093- 
10&4- 
1895- 
1097- 
109H- 
109B- 
109C- 
109D- 
109E- 
10^10- 

lefti- 
lefiE- 

10t^4- 
10H6- 
101^3- 
10fHft- 
10FIB- 
10HO- 



S9 OE 
C9 OB 
F0 IE 

66 
4S 

as> 00 

F0 16 
6S 
4S 

29 OF 
C9 09 
D0 10 
68 

4e 

29 10 

D0 en 

68 
4B 
29 F0 

C9 B0 
D0 01 

cn 

48 

48 

20 9E 

6S 

FI3 

Bl E0 

E0 3B : 

ss 

C3 
CH 

DO EO 
IS 

93 

65 EO 
8^ EO 

90 0£ 
E6 El 
6S 

HO 00 
FO 64 



BUD 


■I0B 


CUP 


0*08 


BEa 


□ME 


PLfl 




PHH 




RND 


stoo 


CMP 


#tos 


eEO 


0HE 


PLft 




PHfl 




FIHO 


(tI0F 


CMP 


tU09 


BNE 


THREE 


PLH 




PHH 




RMD 


"tie 


SHE 


THREE 


PL ft 




PHfl 




HUD 


ttiFe 


CMP 


ttise 


BME 


TNO 


i:iHE DEX 




TUO DEJ; 




THREE TVH 




PHR 




PHH 




JSR 


OUTSP 


PLH 




TflV 




LDft 


<HOWL>.V 


JSR 


PRTBVT 


PLH 




THV 




IHV 




DEX 




EiHE 


THREE 


LLC 




TVFt 




HDC 


♦NOltL 


SIR 


»HOWL 


BCC 


sk;p 


INC 


♦HOWH 


SKIP PLH 




LDV 


#t00 


BED 


BTML 



;IF LSO IS e OR F. 

: THEN TREfiT HS H OHE- 

; BVTE INSTRUCTION. 



IIP LSD IS S OP R, 

r THEN TRERT RS R ONE- 

! BVTE INSTRUCTION. 



HLL OTHERS EXCEPT LSD = 9 

HRE TPEHTED HS THREE- 

BVTE INSTRUCTIONS. 
IF LSO IS 9. 

THEN TEST MSD. 
IF MSD IS 1.3,S,7.9,D, 

OP F THEN i-BVTE IMSTP. 



:^IF MSD IS HOT 8 THEN 
; TREHT HS S-SVTE INSTR. 
:HLL OTHERS — 1-EVTE. 
iHDJUST BVTES TO PRIHT 
! HS REQUIRED 
ISHVE V REOiSTSR, 
! <TNICE>. 

iPRINT H BLHNK. 

: RECOVER V REG I STEP 

ILOHD NEXT eVTE. RHC 

I PRINT IT. 

IRECIOVER V REGISTER, 

: '.BGFtlH>. 
r INCREMENT RODR OFFSET 
rDEC EiVTES TO PRINT. 
rIF NCiT DONE, PEPERT. 
IINCREli'SE HOW BV THE 
I ULIMBEP OF eVTES 
r JUST PRINTED. 



jCLEfiR THE STHCK. 
:SET V FOR TNO-STEP 

: JUMP TO MHIN LOOP. 




Ei\D FRUSTRA TIOM! 



FROM CASSETTE FAILURES 
PERRY PERIPHERALS HAS 
THE HDE SOLUTION 
OMNIDISK SYSTEMS (5" and 8") 

ACCLAIMED HOE SOFTWARE 

• Assembler, Dynamic Debugging Tool. 
Text Output Processor, Comprehensive 
Memorv Test 

• HDE DISK BASIC NOW AVAILABLE 
PERRY PERIPHERALS S-100 PACKAGE 

Adds Omnidisk (5") to 
Your KIM/S-100 System 

• Construction Manual — No Parts 

• FODS & TED Diskette 

• *20. +*2. postage& handling. (NV rMidantt 

add 7K tax) (specity for 1 or 2 driva svttcm) 

Place your order with: 
PERRY PERIPHERALS 

P.O. Box 924 
Miller Place, N.Y. 11764 
(516)744-6462 

Your FuH-Line HDE DinritMlor/ Exporter 



contents, followed by a 4-digit check- 
sum. If more than one line is to be 
printed, subsequent lines are printed im- 
mediately below the preceding line. 
While this routine is certainly service- 
able, it leaves a great deal to be desired 
in terms of readability, especially when 
it comes to listing a loaded program. 



A better approach would be to have a 
routine that prints a program in the 
same form in which it was written. That 
is, first the address, then the operation 
code, and then the operand, if any, 
associated with that instruction. For 
clarity, the individual fields should be 
separated by blanks. 



A program which performs this type 
of listing is shown in listing 1. The pro- 
gram is quite straightforward, and KIJVl 
subroutines are used whenever possible 
to reduce program length. The only 
tricky part of the program is the analysis 
of the operation codes to determine the 
instruction length for printing the 
operand field. 



The program is used very much like 
the KIM dump routine except that the 
starting address of the program to be 
listed is loaded into 17F5 and I7F6 [low 
order byte first, as usual|. The last ad- 
dress plus one is loaded into I7F7 and 
17F8. The listing program is then ex- 
ecuted normally. The program term- 
inates with a JMP to the KIM monitor, 
but a subroutine return can be used if 
desired. 



One word of caution is in order. The 
program is designed primarily for listing 
programs. If data is listed, the number of 
bytes printed per line will be determined 
by the first byte on that line, which is 
treated as an operation code. There may 
be one, two, or three bytes per line. 
Similarly, if the program is started in the 
middle of an instruction, the results will 
depend on the contents of the first byte. 
Experience has shown that the program 
will usually get back into synchroniza- 
tion after a few lines thotigh. 



The program is completely relo- 
catable, and uses only two page zero ad- 
dresses. These are locations EO and EI, 
which are used to keep track of the loca- 
tion of the byte currently being printed. 

MCftO 
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Plaii Copts ^ Robbers 
In The Tombs Of Ancient Tqijpt 



CopYiIgW 1981 By Slrtus Software, Inc. 




Where your secret n^eapan 
is the fourth dimension..- 



Copyright 1981 By Sirius Software, Inc. 




In the center of an orbiting space station 
YOU are protected only by a revolving 
force shield. Enemy forces are advanc- 
ing from all directions and begin to 
place killer satellites in orbit around 
youi station. And then, look out for the 
meteors! 

Copyright 1981 By Siiius Software, Inc. 



A "bloody" good game for the 

true-blue game freak. Your mission in 

this exploratory operation is to deliver 

whole blood to Hemophilia, a city in 

the sky, and return to Anemia Base 

before the Gamma Goblins 

overcome you. A real heart stopper! 

Copyright 1981 By Sirius Software, Inc. 
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What say ^e^o ovA ^^^^ gtomP g /few??? 

Endless Excitement Stomping Sneakers And A Swarm Oi Other Creatures 



Copyright 1981 By Slrius Software, Inc. 



Hatch some tun with the Spiders, 

Wolves, Lips, and Fuzzballs. Space 

Eggs will crack you up! Each package 

Includes a multi-color T-shtrt iron-on 

that soys "I FRIED THE SPACE EGGS." 

Copyright 1981 BySiiliis Software. Inc. 



Phantoms Five simulates a tighter- 
bomber mlsston in real time, three 
dimensional color graphics. While you 
try to make your bombing run, you hove 
to avoid being hit by antl-atrcrafl lire 
and fight oft enemy aircraft as well. 

Copyiight 1960 By Siiius Soltware, Inc. 
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The professional graphics editing 

package for use within Ihe Pascal 

environment. 

Copyright 1981 By Sirius Software, Inc. 



This is the graphics editing package 
we based our business on. Includes 
the Higher Tezt Character Generator 
by Son 8c Darrell Aldrich and over 20 
original and imaginative type styles. 

Copyilght 1980 By Sirius Soitwaie, Inc. 
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1 THE EARTH HAS ENTERED A TIME WARP . . . AND THE BATTLE HAS JUST BEGUN 



Copyright 1981 By Sirius Software, Inc. 



HfflciB 



CVBEH STHJKE 



AUTOBAHN 



PULSAR II 



A two game pack featuring "High Noon" and "Duels 
Hunt" You'll love the bad guy that falls ott the roof 
and the dogs fighting over the ducks. Fun for the 
70ung and the young at heart. 
Copyright 1980 By Sliius Soitware, Inc. 

Save yourself from the swooping aliens! This is a fost 
action aicade style game that can be played from 
ages three and up, but beware, the difficulty In- 
creases with each new wave of aliens. 
Copyright 1960 By Slrius Software, Inc. 

Interstellar challenge tor the dedicated arcade gamei, 
You are In command of a light transport ship equip- 
ped with Hypeispace Drive, Antimatter Torpedoes. 
Local and Galactic Sensors, Meteor Shields, and 
an Instrument Panel which continually tabulates 
all information vital to your mission. You alone can 
prevent the clone take over of the allied settlement 
bases. WARNING . . . this game requires practice to 
play successfully. 
Copyright 1980 By Slrius Soitware, Inc. 

Hair raising excitement at 120. 160, and 200 kUome- 
ters per hourl Drive through heavy tralfic, oil slicks, 
narrow roads, and dark tunnels (with headlights). 
Watch out for the lire trucksl Only on the Autobahn 
can you drive this fast. 
Copyright 1981 By Sirius Software, Inc. 

A unique two game series that provides scoring 
options for separate or combination game play. To 
destroy the "Pulsar" Is no easy task. It Is surrounded 
by spinning shields that send out orbs of energy 
aimed directly at you. "The Wormwall" places you in 
one of the strangest mazes ever created. The walls do 
not connect. Openings only occur temporarily as 
moving colored segments in the walls cross. In addi- 
tion, there are munching mouthers in each level of 
the maze ready to gobble you up should you mis- 
Judge the time and location an opening will occur. 
Copyright 1981 By Sirius Software, Inc. 



Contact Your Local Computer Dealer For More Information • Dealer Inquiries Invited 



i Sirius Software, Inc. 

2011 Arden Way #2. Sacramento. Caliiomia 95825 



PROGRAMMING Copts & Eobbeis was piogiammed by Alan Menell 
and Eilc Eaopp. Epoch was piogiammBd by Laiiy MlUei Orbition 
waspiogiammedlDyErlcSnopp. Gamma Goblins was piogiammeil 
by Tony and Benny Ngo. E-Z Draw was pioaiammad by Naslr GebelU 
and Jerry W. Jewell Pascal Giaphlcs Editor was piogrammed by 
Einie Bioclt Sneakers was piogiammed by Mark Turmell Goigon, 
Phantoms Five, Space Eggs, Both Barrels, Stai Cmlsei, Cybei Strike, 
Autobahn, and Pulsar II were programmed by Nasli 

COPYKIGHT INFORMATION All sollwoie menlloned In this adveilise- 
menl aio copyiighled products ol Slrius Softwaie. Inc. Ail liQhts re- 



served. Apple and Applesolt are registered tiademailts ol Apple 
Compuloi Inc. Higher Text is a copyiighled product ol Synerglsiic 
Software. We use Control Data disks lor highest guotity. 



SYSTEMHEOUIHEMENTS: All software mentiOCOdin this advertlsemen: 
recjulreanApplellor 11+ with46a with Ihe following exceptions- E.Z 
Diow requires a 4BK Apple vrtih Applesolt tn KOM (or a 64K Apple II or 
11+) Pascal Graphics Editor reguiies an Apple II oi II + with Language 
System. 



From Here to Atari 



James Capparell 

297 Missouri Street 

San Francisco. California 94107 



what better place to discuss Atari 
featuies than in an issue devoted to 
games? Actually, Tni hesitant to draw 
the Atari-games parallel. The point that 
it is a premiere graphics machine has 
clouded the fact that it is a flexible, 
easy-to-use computer system with fea- 
tures and capability appealing to a diverse 
user group. And, the Atari has an in- 
stalled user base estimated over 50,000. 

Why do I believe that this equipment 
is ahead of its competitors? I feel its 
strongest features, relative to game pro- 
gramming, are sixteen graphics modes 
|high resolution 320 x 192), two direct 
memory access (DMA] video channels 
[sort of a simplified multiprocessing 
system), display list controlled memory 
mapped graphics, redefinable character 
sets, hooks for vertical blank interrupts 
and scan line interrupts, and of course 
four channels of sound [silent games 
are dull). 

Mastering these features takes some 
time. Cunently there are two essential 
manuals available from Atari: The Oper- 
ating Systems User Guide and Haidwaie 
Manual #C016555. The cost for both is 
thirty dollars and worth every penny. 

This month I would like to discuss 
one feature of the display list, smooth 
scrolling of the screen image. The Atari 
maps its memory to video via a LSI chip 
called ANTIC. This chip is a dedicated 
processor with its own instruction set. 
These instructions make up what is 
called a display list. The display list con- 
trols the graphics mode which will be 
displayed on the screen. Recall that 
there are sixteen modes, each specifying 
memory use, resolution and color. The 
display list tells ANTIC what part of the 
5502 memory space to display, what 
mode to display, whether an interrupt 
should be generated, and whether hori- 
zontal and/or vertical scrolling should 
be enabled. It is this last feature which 
will be demonstrated. 

There are two methods which can be 
used to scroll the image. The first is 
direct and easy to comprehend. The 



display list has, as part of its instmc- 
tions, a feature called Load Memory 
Scan (LMS). This operator is three bytes 
long. The last two bytes arc the address 
(low-high bytes, 6502 style] of the start 
of display memory. As a result, the en- 
tire address space is available for display 
under program control. This gives the 
observer a 'window' into memory. 
Scrolling windows are created by simply 
changing the two address bytes of the 
LMS. In other words, it is not data being 
moved through memory, but a window 
moving across the data residing in 
memory which causes the image to 
scroll. 

Program 1 should give a good idea of 
'coarse' vertical scrolling. I call it coarse 
since the image moves a full character 
space at a time. Lines 170 and 180 are 
really doing all the dirty work. The new 
display address is being inserted into the 
display list at this point after appropriate 
incrementing or decrementing of the ad- 
dress bytes. I've chosen to vertically 



scroll the entire image but it is an easy 
matter to set up a scrolling window 
within a background display. In fact, 
program 2 does just that, only in the 
horizontal direction. 

I've also mixed two modes on the 
screen. The only complication here is 
the need to have more than one LMS in- 
stmction. The second LMS restores the 
pointer to memory prior to the horizon- 
tal in Ems ion. There is nothing to stop 
you from placing an LMS instruction on 
every mode line; each could be scrolling 
in independent directions. 

Program 3 is meant to demonstrate 
the second scrolling method, smooth or 
fine scrolling. This is accomplished 
with the help of hardware scrolling 
registers, one for horizontal and another 
for vertical direction. When the appro- 
priate bits are set in a display list in- 
struction, the values in each of these 
registers control the amount of scan 
lines vertically or color clocks horizon- 
tally that each line will be displaced. 



Listing 1 

10 REM *» PS0G3 *• FINE SCROLLISG HORIZONTALLY AND VERICALLT 
20 DLST=PEEK (560 l+25i*PEEK (5611 
25DMEM=PEEK(DLST*4)*PEEK(DLST4-5)»25fe 
30SKIPH=INT((DMEM*280)/256):SKIPL=DMEM+280-SKIPH»256 
35 VALL=0!VALH'2 

40 POKE DLST+12,119IPOKE DLST+13,VALL!POKE DLST+)4,VALM 
45 POKE DLST*15,fei.:POKE DLST+16,SKIPL!POKE DLST* 1 7 ,SKIPH 
50 IF PEEK(744)=255 THEN GOTO SOIREM SCAN KEYBOARD 
55 IF PEEK(764)=14 THEN POKE 7i4,2551GOTO 200:REM UP AHHOW ? 
60 IF PEEK*7t4)=15 THEN POKE 764,255{GOTO ZSOIHEM DOWN ARROW ? 
65 IF PEEKI764)=6 THEN GOTO 300!REM LEFT ARROW ? 
70 IF PEEK1764>=7 THEN GOTO 350:REM RIGHT ARROW 7 
75 GOTO 50:REM IGNORE OTHER RESPONSES 
200 Y=Y+1 ilF Y<16 THEN GOTO 500 
210 Y=0 

215 VALL=VALL*40 

220 IF VALL>240 THEN VALL=0IVALH=VALH+1 
230 GOTO 450 
250Y=Y-1 

255 IF Yl-l THEN GOTO 500 
260 Y=15 

265 VALL=VALL-40 
280 GOTO 445 

300 X=X-1IIF X>-1 THEM GOTO 505 
305X=15 

310 VALL=PEEK(DLST+13H2 
325 GOTO 445 

350 X=X+1!IF X<16 THEM GOTO 505 
355 X«0 

360 VALL-PEEK(DLST+I3H2 
440 IF VALL<0 THEN VALL=01VALH=VALH-1 
445 IF VALH<0 THEN VALH=0 

450 POKE DLSTtI2.Il?!POKE DLST+13,VALL:P0KE DLST*14,VALH 
500 POKE 54277,y{REM VERTICAL SCROLL REGISTER 
505 POKE 54276,X!HEM HORIZONTAL SCROLL REGISTER 
510 GOTO 50 
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The limitation here is the amount of 
fine scrolling allowed. A iine can be 
moved eight full color clocks horizon- 
tally and 16 scan lines verticaliy. When 
this amount is scrolled, the LMS address 
bytes must be incremented or decre- 
mented and the whole process must be 
started again. In this way smooth scroll- 
ing can be maintained. 

The previously mentioned manuals 
are a necessity for commercial program- 
mers. This machine has been completely 
disclosed and it's up to us to begin using 
these features. 

Currently three games make full use 
of Atari graphics. They are Missile Com- 
mand by Atari Inc., jawbieakei by On- 
Line Systems, and Dodgeracei by 
Synapse Software. These three games 
use the graphics capability of this equip- 
ment and approach arcade level polish 
and style. Synapse also produces File- 
managei 800, a database management 
package that's so easy to use and makes 
such excellent use of mixed mode dis- 
plays that it's going to become a stan- 
dard for emulation. 

One other program that I must men- 
tion is Eastern Front, available from 
Atari Program Exchange (APX). This is a 
strategy war game that makes excellent 
use of smooth scroll technique. This 
game is a virtuoso performance of pro- 
gramming skill and probably excercises 
the internal features of the Atari more 
than any other product on the market. 

I hope your curiosity has been 
stimulated. These techniques are just 
the beginning; I intend to offer more 
ideas and help over the coming months. 

'mcro 



Listing 2 

10 REM •• PROGl *• COARSE VERTICAL SCROLLING DEMO 

15 REM PRESS UP/DOWK ARROWS TO MOVE DISPLAT THRU MEMORY 

20 DL1ST=PEEK(560)+PEEK1561>»256!REM GET START OF DISPLAY LIST 

30 LMSL=DLIST+4;REM pointer TO DISPLAY MEMORY 

40 LMSH=DLISTt5 

50 DISPLAYL=0:DISPLAYH=OiREM INITIALIZE ADDRESS OF DISPLAY MEMORY 

55 REM READ KEYBOARD 

60 IF FEEK(764)=555 THEN GOTO 60!REM WAIT FOR KEY 

70IFPEEK<764)=UTHENPOKE 764,255:GOTO ilOIREM OP ARROW ? 

80 IF PEEK(7t4)=15 THES POKE 764,255iGOTO 140:REM DOWN ARROW ? 

90 GOTO to 

100 REM MOVE DISPLAY WINDOW INTO LOWER MEMORY 

1 10 DISPLAYL=DISPLaYL-40 

120 IF DISPLAYL>=0 THEN GOTO 170:REM CAN'T DISPLAY NEGATIVE MEMORY 

122 DISPLAYH=DISPLAYH-11DISPLAYL=0 

124 IF DISPLAYHCO THEN DISPLAYH=0 

126 GOTO 170 

130 REM MOVE DISPLAY WINDOW INTO HIGHER MEMORY 

140 DISPLAYL=DlSPLAYL+40 

150 IF DISPLAYL>240 THEN DJBPLAYH=DISPLAYH+1 :DISPLAYL=0 

160 REM CHANGE DISPLAY MEMORY POINTER 

170 POKE LMSL.DISPLAYL!REM PUT NEW DIPLAY ADDR IN DISPLAY LIST 

180 POKE LMSH,DISPLAYH 

200 GOTO 60IREM GO WAIT FOR KEYBOARD ENTRY 



Listing 3 

10 REM *» PROG2 *• COARSE HORIZONTAL SCROLLING DEMO 

20 REM USE LEFT AND RIGHT POINTING ARROWS TO CONTROL SCROLL DIRECTION 

23 LIST 

30 DLST"PEEKf56n»256+PEEKl5i0) 

35DMEM=PEEK(DLSTt4)*PEEK(DLST+5)'i256 

40skiph=int((dmem+230)/256>!skipl=dmem+280-bkiph*256 
45 poke dlst+15,66!poke dlst+16.skipl:poke dlsth7,skiph 
50 addrl=di.st+i3:addrh=dlst*14;vall=o:valh=3 

55 POKE DLST*12,7i;POKE ADDRL.VALLJPOKE ADDRH,VALH 

60 IF PEEK(764)"255 THEN GOTO 60!REM SCAN KE 

65 IF PEEKi764)-7 THEN POKE 764,255!GOTO lOOIREM RIGHT ARROW "> 

70 IF PEEK(764)=6 THEN POKE 764,2551GOTO 140iREM LEFT ARROW ■> 

SO GOTO SOiREM ONLY ARROWS ARE LEGAL RESPONSE 

90 HEM SCROLL RIGHT 

100 VALL-PEEK(DLST+13H1!RE« MOVE DISPLAY TO LEFT 

1 10 IF VALL>255 THEN VALL"=0!VALH-VALH*1 

120 GOTO 55 

130 REM SCROLL LEFT 

140 VALL-PEEK(DL3T+i3)-llHEM MOVE DISPLAY TO RIGHT 

150 IF VALL<0 THEN VALL«OiVALH-VALH-l 

160 IF VALH<0 THEN VALH-0 

170 GOTO 5! 



DEPT.E-9 P.O. BOX 30160 EUGENE, OR 97403 (503) 345-3043/NOON-7 PM 



SUPER DRAW & WRITE Fonts, drawing, and useful 
utilities. 19.9S 

SUPER SHAPE DRAW & ANIMATE The best system 
yet, it works. . . create and/or animate shape tables like 
a dream. 39.95 

THE CREATIVITY TOOL BOX Draw, write poetry, 
music. Includes Action Sounds, Hi-Bes Scrdling, 
routines, shape tables and snape view program, 
utilities, animation demo, and fonts, 3 diskfuls, 88 page 
manual. 44.95 

BLOCK SHAPES FOR APPLESOFT OR ASSEMBLY 

There is no package avail^e today tfiat gives com- 
puter customers wtiat Itiey want in the area of graphics. 
The crying need here, according to our customers, is 
for a learning package tfiat quits ignoring the one sub- 
ject that everyone aeems to be trying to keep a deep 
dark secret: assembly S machine language graphics! 
.The BLOCK SHAPES FOR APPLESOFT OR 



ASSEMBLY package is choci^ full of programs to create 
and animate al[ types of shapes, such as vector shapes, 
tjfocK-shapes, HPLOT-shapes, text file shapes, data ar- 
ray shapes, etc. Included in BLOCK SHAPES FOR AP- 
PLESOFT OR ASSEMBLY are shape examining, shape 
editing, shape drawing, music tone routines, violin 
sounds, noise creation, assembly language sounds, 
SUPERFONT and font using, and a Y TABL£ for either 
page of tii-res that aliows extra speed in machine 
language programs since you avoid the HPOSN 
sut)routine. Plus colorful roulines. You may never need 
to Ouy anolher graphics package again. ..because you'll 
finally havs a handle on what It's all aboutllll BLOCK 
SHAPES FOR APPLESOFT OR ASSEMBLY avaiiaWe 
this fall (1981). 4 di^ts with over 200 pages of 
documentation. Tsntallv* prkw: 125.00 

Apple II 4SK ApplMoft ROM* 

*Apb<e Is a Dademwv ol AnWe Compulqr, Inc. 
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ATARI SOFTWARE 

PIRACY: 

THIS GAME IS OVER, 



ATARI® has led the industry in the development of video games 
such as ASTEROIDS™ and MISSILE COMMANDS The outstanding 
popularity of these games has resulted from the considerable investment 
of time and resources v^hich ATARI has made in their development. 
We appreciate the worldwide response from the videophiles who have 
made our games so popular 

Unfortunately, however, some companies and individuals have copied 
ATARI games in an attempt to reap undeserved profits from games 
that they did not develop. ATARI must protect its investment so that we 
can continue to invest in the development of new and better games. 
Accordingly, ATARI gives warning to both the intentional pirate and to 
the individuals simply unaware of the copyright laws that ATARI 
registers the audiovisual works associated with its games with the Library 
of Congress and considers its games proprietary. ATARI will protect its 
rights by vigorously enforcing these copyrights and by taking the appro- 
priate action against unauthorized entities who reproduce or adapt 
substantial copies of ATARI games, regardless of what computer or other 
apparatus is used in their performance. 

We ask that legitimate software developers cooperate with us to 
protect our property from any form of software piracy, imitation or infringe- 
ment. ATARI is currently offering copyright licenses for a limited number 
of its games to selected software developers. If you happen to be selling 
a software product which performs a game similar to any ATARI game 
(such as a game created for a home computer), please contact us 
immediately. Write to the attention of: Patent Counsel, ATARI, Inc., 
1265 Borregas Ave., Sunnyvale, Calif. 94086 



A 

ATARI 

^p ^ Warnei Communications Company 
©19BI. ATARI. INC 
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Innovative Design Software, Inc. 

ANNOUNCES 
SHUFFLEBOARD 

for your APPLE IL™ 
only $29.95 




01 DiV 



Real time 
HIRES Color 
Graphics 



SHUFFLEBOARD 




• Play Agairist 
your APPLE or 
another opponent 

An accurate and 
challenging game 
following in the 
tradition of Pool 1.5 



POOL 1 .5 features 

• Realistic, life-like motion 

• HIRES Color Graphics 

• Choice of 4 popular pool Games 

• You've Got to see it to believe it! 

• Only $34.95 



— Another first from IDSI 




POOL 1.5 



"IT (Pool 1.5) is so realistic, you begin filling in the details of the pool hall 

yourself" 
— Softalk Magazine 

Both of these excellent games require a 48K APPLE ll/Plus and a DISK II. Pool 
1 .5 requires a set of game paddles or Joystick. Order directly from IDSI or see 
your nearest APPLE dealer. 




Apple ll/Plus is 

a Trademark 

of Apple Computef Inc. 

Pool 1.5 is a trademark 

of IDSI 



P.O. BOX 1658 

Las Cruces N.M. 88004 

(505) 522-7373 



^MHlKCard) <f\ MSM* 




We accept 

Visa, MaslerCard. 

Check or Money Order. 



P 
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Lunar Lander 

Animated Graphics in BASIC 
for tiie Coior Computer 



The TRS-80 Color Computer was 
designed for color graphics from 
the ground up. This program 
uses high-speed animation 
techniques available from BASIC 
for the Color Computer. 
Presented are several Ideas and 
techniques that make the 
animation process easier or 
more realistic. 



John Steiner 

508 Fourth Ave. NW 

Riverside, North Dakota 58078 



The Color Computer was conceived 
with graphics as a central feature of its 
design. With Microsoft's powerful 
Extended BASIC, high speed animation 
is a reality without machine language. 
Using an old standby, Lunar Lander, 1 
will demonstrate some of these tech- 
niques and how they are used. While 
techniques shown here are not as high 
speed as is possible with the system, 
they show the potential that is possible 
in a BASIC language program. See chart 
1 for a description of how to prepare the 
Color Computer for graphics display. 

The first step is to clear the correct 
number of pages required for the pro- 
gram graphics displays. Next select the 
desired mode. This is done using the 
PMODE conmnand, and each mode 
determines colors available and starting 
page of the graphics display. Next select 
the color set desired. This choice is 
dependent upon the PMODE, SCREEN 
and COLOR commands. (See my 
previous article, "The Radio Shack Col- 
or Computer" in last month's issue for 
more on this process.) 

If you refer to table 1, you'll notice 
that the higher the resolution, and 
greater the color combination, the more 





Chart 1: Qraphlcs 




Initialization 


A. 
B. 
C. 
D 


Reserve Memory Pages 
Choose Desired Mode 
Choose Screen Color Set 
Select Foreground and 
Background Colors 



pages of video memory are required. 
Each "page" of memory requires a 
minimum of 1.5K, and in Hi-Res, four 
pages are required to display one picture 
on screen. By using more than one page 
of graphics, the programmer can have 
several displays to be called when re- 
quired. The Lunar Lander program has 
three separate backgrotrnd displays. 
Each display is drawn at the begirming 
of the game, and is called into view as it 
is needed. By drawmg them in the 
beginning, the program does not have to 
stop and wait for the graphics to be 
drawn. In PMODE 0, since only one 
page is required, it is possible to store 
eight different displays for callup. 

It is possible to draw images in 
memory without the drawing being visi- 
ble to the player, and this technique is 
used in Lander. The SCREEN command 
calls the screen to be viewed, and by 
calling the text screen, or one of the 
previously drawn or empty pages, the 
drawings and placement of objects will 
not be visible. 

The program gives directions, and 
then asks for a difficulty level. After ob- 
taining the input from the player, a 
"standby" message is printed on the 
text screen. While the viewer waits, the 
program selects the correct pages, and 
draws the individual images on each 
page. This will be explained in detail 
later. However, one coirmient here is in 
, order. If there is no need for a difficulty 



Table 1 



PMODE 


1 

2 
3 
4 



Pages Required 

1 
2 
2 
4 
4 



level or other player input, the instruc- 
tion screen can be displayed while the 
graphics are being drawn. Upon comple- 
tion of the draw routines, the "PRESS 
FIRE BUTTON TO CONTINUE" 
message appears, and the game can 
begin. It takes about five seconds to 
draw the screens. 

This program is patterned after an 
arcade game. The lander is travelling 
horizontally and vertically toward the 
l unar suifacc, and the object is, of 
coLurse, to bring the craft to a safe land- 
ing. As the craft nears the surface, the 
screen display switches, and a closeup 
view of the lander and immediate ter- 
rain is shown. Now the player must land 
safely, without too much speed, and on 
level ground. The program is well 
remarked, and the remarks may be left 
in if desired. The gravity calculation is 
not scientifically accurate, and you may 
experiment with it to determine what 
appeals to you. The program sets W 
(vertical veloctiy| in line 370. 

Selecting and drawing the landscape 
is your first order of business. The land- 
scape is stored in two strings, LS and RS. 
To draw the long range view of the land- 
scape, PMODE 2,1 is selected. The 2 in- 
dicates the resolution and memory re- 
quirements, and the 1 indicates the page 
the information will begin drawing on. 
PMODE 2 requires two pages to display 
the entire screen, and since there will be 
a long range view combining L$ and R$ 
as well as two closeup views, L$ and R$ 
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respectively, we will need six pages. 
Line 10 clears six pages and sets the 
mode. Line 20 clears the first screen, 
and calls the text screen to be viewed, to 
display the instructions. 

B$ is a lower border, and may be left 
out if desired. The PAINT command 
colors the landscape, whUe RS$ is the 
landing craft, which is drawn in the up- 
per lefthand comer of the screen. Next 
the ship is stored as an array using the 
GET command. (More on this later.] 

After drawing the long range land- 
scape, the program "turns the page" in 
line 110. The mode is still 2, but we 
have now selected starting page 3. A 
PCLS command clears the memory to 
backgroimd color, and the left landscape 
is drawn. One of the most useful options 
of the DRAW command, 'S'cale, is used 
to increase the length of L$ to fill the 
lower portion of the display with only 
the left portion of the landscape. Keep in 
mind that all this is going on while the 
"standby" message is being displayed. 



The scale of the landing craft is also 
increased, and now is so large that the 
craft must be 'TAINTED," After draw- 
ing and painting the left landscape, the 
pagestart is again changed. Line 150 
selects PMODE 2,5, and clears the 
screen to begin drawing the right half of 
the terrain. The rocket is drawn in the 
upper left comer of this screen also. 
Once the craft gets close enough to the 
surface, if it is in the left half of the 
screen, page 3 is called, otherwise page 5 
is called. In order to simplify the page 
changing routine, the craft is drawn on 
both pages. Once entering either page 3 
or page 5, the program will eventually 
end in this mode. It is not possible to 
return to the long range view as the pro- 
gram is written. If you send the rocket to 
the top of the screen, it will stay there, 
because of a limiter on the vertical 
command. 



I could have gotten more realistic 
and accurate closeups of the ground by 
using a middle landscape string. This re- 
quires two more pages of memory to 
store the landscape, and that does not 
leave enough memory for the program. 
One solution would be to clear pages 5 
and 6 and quickly redraw the center 
landscape, should it be required. There is 
a pause as the paint commands are exe- 
cuted. In the interest of keeping action 
as fast as possible, I chose to have only a 
left and right option. After calling the 
new start page, the new landscape appears 
by executing the SCREEN command. 



Listing 1: Lunar Lander Program 

10 PCLEflRS PM00E2/1 

£0 PCLS'SCPEEHe.l 

3e G0SUB76e 

35 ■'LfiNDIHG CRHFT 

46 [>IMLC<19-20> 

45 'LRNDSCfiPE 

50 L«- ■■ ReE4R2E4R3E2R 12F3R3P4R2F6R2EeR 1 2E4R 1 2R 1 5E4R2E2R 1 6F9 " 

60 R*="5M*a.*0-RlE'!RlSF2RlESRi0RI2E4PlE4RlE4R2E3R2E5R3ESR3E5R2E7 

R3L12E3R1E4U2R2E4 
R3 

70 B«="S4;eMl,I90^R253 
75 'LflNDINt; CRfiFT 
80 RS*="F2D3H2f:2U3E2" 
85 'DRfiW LRHDSCflPE 
90 DRFiU"C5iBMl,18e.XL«;XR*jXBti" 
100 PfllNTt25e.l90).5.5 
H0 PM0DE2.3'PCLS 
115 'DRfiW LEFT LflNOSCRPE 
120 ORflW"S10>Bni,179,XL*iXe*>" 
130 PfllNT(100.170),5,3 

140 DRFIW"S12ief140,40.KRS*;"'PflIHT<45,45),5.5 
150 Pn00E2.5.PCLS 
155 'DRH14 RIGHT LFIHPSCflPE 
ie0 DRflW"S10-8f11.1B0iJ<R*.XB«j" 
170 PflINT<I90,lB0>.5,3 

190 DRflU"S12>SM4a,40;XRS*."'PflINT(45.4S)j5,5 
130 PM0DE2. 1 
195 'ORPN SMRLL CRRFT 

280 ORRW'S4lBnEa,28jXRS»^"^ORnW"Bri20.2eiD3" 
203 'STORE SMALL CRPFT 
210 GETa0.15>-<30,36>.LC,G 
215 -IHITIRLIZE 
220 OI=0H-10'V=1SHV-3VV=1 

236 PRINTII448, "PRESS FIRE eUTTON TO CONTINUE. 
240 P=PEEK(65289)'IFP<>12S HNO P0254 THEN240 
245 'CPLL LARGE LflNDSCRPE 
250 SCREEin.l 
255 'UPDRTE VELOCITY 
268 R>-JOYSTK<a)'e=JOYSTKt 1) 
265 'SET TO NEW POSITION 
£70 IFR< 1STHEHHV=HV-1 ■ IFHV<-1THENHW— J 
290 IFR>49TNENHV-HV'-1 ■ IFHV>3THENHV-3 
290 lFe< 16THENVV-W-DF ■ !FW<-3THEHWV— 3 
310 H-H+HVaFK<0THENH.a 
320 IFH>23aTHENH-230 
330 V-V*VV'IF^<0THENV=0 
335 'CLOSE ENOUGH TO LRND? 

348 IFPP0INT(H+5.U*£5)-5 RND DI=0THENGOSUB4aa 
345 'CHECK FOR TOUCHDOWN 

350 IF PP0INT<H+19,V*22)-5 RND D!=1THEN570 
360 IFPPCItJTCH+6,V+22i"5 RND D1-1THEH570 
365 'IF NOT, INCREASE SPEED, PUT NEW POSITION 
370 VV-VV*.2'IFVV>3THENVV-3 
390 PUT<H-V>-':H*20,V+2I),LC.PSET 
390 GOT0E68 

395 'SELECT LRNDING FIELD 
488 DI-l: IFH<I26THEN428 
410 IFH>125THEN490 
415 'CfiLL LEFT LRNDSCRPE 
420 PM0DE2.3 
425 'STORE LRRCE CRRFT 
430 GETt 30,37)-! 56. 5e).LC.G 
440 PiJTt30/37)~!58.59>.LC.NOT 
450 PUTt30.37;-(58;58>.LC,flND 
468 H-H*2'IPH>230THENH-230 
470 V-!V+I0>--2 
480 SCREENl.l -RETURN 
485 'CRLL RIGHT LRNDSCRPE 
490 PnODE2,5 
495 'STORE LARGE CRRFT 
Sae GETC30,37)-C50.58).LC.G 
510 PUK30.37)-<50.59),LC.NOT 
320 PUTC30.37)-i:50.39).LC.flNO 
530 IFH-;i90THENH"H--2 
540 IFH<60THENH-H-40 
550 V-<V'2J-10 
560 SCREENl, I ■RETURN 
563 -CHECK POR LEVEL GROUND 

579 IFPP0INT<H*19-V+22>'>3 AND PP0INT(K*2. V+22 5"5 THENLG=lELSeLG-0 

580 IFPP0INTCH+ie.V-'22>=5 RND PPOINTf Hi-2, V+22 ;<;5 THEN LG=lEL3eLG=8 
585 'SETS CRRFT DOWN 

599 FORI'lTOVV+4 

600 PUT<H,V>-':H+20,V+21>.LC.OR 

619 W-W+1 

620 NEXT 

638 FORI-1TO300.NEXT . 
648 IFVV<-0THENVV-1 
645 'FINISH ROUTINE 

639 IFLC=lTHeN700 

660 ON W GOTOS70.6g0,(;90 
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67B CLSS PRIWTI?224, "GOOD LfiUDIWG" GOTO^ia 

em CLS9'PRlNTe224."S0T 30 HOT. BUDDY. VOU RERLLV" ■ PRrHT"SHOOK 'EM UP i i " 

^GQTOria 
69a CL30'PRIHTi5224, "THERE U£RE HO SURVIVORS! " ■GOTO710 
700 CLS0PftINTe224, "YOU'VE GOT TO LRND ON LEVEL" :PR!IJT"GROUHD, " 

iPRIUT"THePE WERE NO SURVIVORS! 
710 PRINTI»448."T0 PLRY BGftlH, PPESS FIRE BUTTON 
72B PDR I =-110509 

733 fl=PEEK£S529ei;:IFH-12e OR H-254 THEN RUN 
rte NEXT 

745 'RESTORE POUER UP CONDITION 
7Sa CLEHPSSe PtICDEe.l PCLERR4 EtJD 
73-5 'TITLE SUBROUTINE 
7Se CLS-PRINT5ie,"LUNRR LflNDEP 

770 PRIHT"yi:iUR COMPUTER MRS RN URGENT" FRrMT"MESSRGe i 

760 PRINT"THE CREW OF THE LfillDIKr; CWFT" PPIMT"HRS REPORTED flUTO-OGSCENT 
793 PRlNT"EI5UIPriENT FfilLUREi VQU MUST" PRINT"CONTROL THE DESCENT WITH MHNUHL 
see PRINT"FRCtLITIES. USE THE RI^HT 

810 PRINT"JOf'STICK TO VRRY THE CPHFT' S" ■ PRrNT":;PEED. BRING 'EM HOME SRFELV 
£20 PRINT PR I NT "ENTER DIFFICULTY" ■ PRIMT"EHTER 1(N0VICE> TO SCEXPERTi" 
530 fit-INKEY*-lFH»=""THEHBS0 
840 IFR*<"l"CRR*>"3"THeNa39 
853 DF=VRLiRf. CLS:PPIIJT(!224 , "STRNDBY" ^RETURN 



In other words, the PMODE does not 
call the display to be viewed, it only 
prepares it for display. Select the mode 
and startpage, then call the screen. 
Remember SCREEN has four options, 
which are listed in table 2. The MODE 
and page select options bring a lot of ver- 
satility to the graphics display. If the 
two-color mode doesn't appeal to you, 
try a lower res mode, PMODE 1 is a 
four-color mode, and you can choose dif- 
ferent colors if desired, for landscape and 
craft. The PAINT commands, however, 
will have to be modified, as well. Due to 
the different colors involved, you cannot 
just change the m.ode. 



The secret behind high-speed anima- 
tion in BASIC is the GET and PUT set of 
commands. GET specifies a double 
dimensioned array that literally scores 
the color numbers of each pixel in the 
specified area- GET|10,10|-|30,30|,LC 
stores a rectangle 20 x 20 square. The 
airay must be dimensioned properly in 
the beginning. Once the array is stored 
in memory, it can be PUT anywhere on 
the screen. 

PUT(50,50|-170,701,LC puts the ar- 
ray back on the screen at the new coor- 
dinates. Notice that there are now two 
objects on the screen. GET does not 
remove the screen display, so other 
techniques must be applied to remove 
it. In Lander the craft is in the exact 
center of the display rectangle. By 
limiting the display movement to only a 
few imits, the display will be over- 
written by the new PUT command. 
This results in relatively high speed. 
However, if you store a background ar- 
ray |an array that matches the back- 
ground color) and PUT it over the old ar- 
ray position, the new position can be 
anywhere you want it. Speed is not ac- 
tually increased, but the illusion of 
speed is enhariced greatly. 



It is possible to use a single array to 
store more than one object. This tech- 
nique is used here, as there is no room 
for two arrays, for the large and small 
landers respectively. A new GET com- 
mand, specifying the same array name 
and size (in this case, LCI, is executed to 
store the image of the large craft when 
the small craft nears the surface, lust 
after calling the correct PMODE, and 
before executing the SCREEN com- 
mand, the large craft is stored. The 
lander must be removed from the left 
comer of the screen so that it may be 
placed in its approximate relative posi- 
tion to the surface. This is accomplished 
using the graphics option of the GET 
command. 



To select the option, just add a ,G 
suffix. When the G is used, the correct 
suffix for PUT must be included. Op- 
tions are listed in table 3. Lines 430 to 
450 or 500 to 520 store the craft, PUT 
the craft back using the NOT option, 
and PUT it back again using the AND 
option. To see how this works, let's 
look at what is happening. 



Table 2: Screen Choice 



SCREEN 0,X text modes 

SCREEN 1,0 

Two-coior mode: black/green 
Foin-color mode: blue/red/ 

yellow/green 

SCREEN 1,1 

Two-color mode: black/buff 
Four-color mode: buff/ cyan/ 

magenta/ orange 



A PUT using the NOT option 
reverses the logic of the destination rec- 
tangle. What was set in the location is 
reset on the screen, and vice versa. What 
is placed in the display is the exact 
opposite of the landing craft and 
background. Next, using the AND 
option, we PUT the craft in the same 
location again. The AND option sets an 
array point only if it was previously set 
in both the array AND the screen loca- 
tion chosen. Since we PUT an exact 
opposite of the array using the NOT, 
there are no locations that are set in the 
stored array AND display location. 
Therefore all points are reset, and the 
craft disappears. We cannot see this hap- 
pening, because the SCREEN command 
has not yet been executed. 

Now that the new craft has been 
safely stored, and removed from the 
screen, we can modify the variables to 
correspond to the new locations, and 
continue. The graphics options are re- 
quired in all two-color modes, by the 
way. Due to the internal struciiue of the 
language, if this option is not used, you 
will not always get what you PUT on 
the screen. 



The logic that determines velocity 
and placement of the craft is in lines 250 
to 410, The right joystick is read, and 
lateral velocity determined from the 
horizontal reading. Vertical velocity is 
determined in line 370 by gravity, as 
well as by the vertical joystick reading. 
The difficulty level, DP, is the upward 
vertical velocity. It roughly corresponds 
to the thrust of the rocket. The higher 
difficulty level moves the rocket faster 
vertically up the screen. Three is the up- 
per limit of motion, as a number higher 
than this will leave traces of the 
previous position on the screen. Lines 
340 to 360 check for landscape. 
Specifically, line 340 selects the page 
switch subroutine when the craft ap- 





Table 3: Graphics Opttons 


PSET 


Sets dot on screen to match 




array 


PRESET Resets dot on screen that was 




set in array 


AND 


Sets dot on screen only when 




screen and array are set 


OR 


Sets dot on screen when 




either array or screen is set 


NOT 


Reverses the state of screen 




whether array was set or reset 
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6809 

Software 



WrIte 

OR 

CaU 
For CATAloq 



(315)474-7856 

JFrank Hogg Laboratory, Inc. 
130 Midtown Plaza 
Syracuse, NY 13210 



preaches the surface. DI is set to 1 in the 
subroutine, and this line is ignored dur- 
ing the last part of the program. 



As the ship is about to touch down, 
lines 350 and 360 check the left and 
right sides of the craft looking for ter- 
rain. If terrain is found, the program 
goes to a set down routine. This routine 
first checks to see if the ground is level, 
then a FOR-NEXT loop sets the craft 
down- Line 600 uses the OR option to 
set the craft down, as it descends, 
without erasing the terrain. The OR 
option sets a screen point, if the point in 
the array is set OR the point on the 
screen is set. 



Velocity, W, is added to the loop to 
give a demonstration of the danger of 
landing at too high a velocity. If the 
landing is perfect the craft settles to the 
top of the lunar surface. If W is increased, 
the craft settles deeper and deeper into 
the lunar dust. A velocity of 3 is fatal to 
the occupants, as is landing on uneven 
ground. There are ending messages 
corresponding to the nature of the land- 
ing, and a request to play again. 



The first time this program is run, 
there will appear an OK message after 
the STANDBY message is displayed- 
This problem is due to the initialization 
of Extended Color BASIC'S stack. Just 
type RUN again, and the program will 
work. 

Using Extended BASIC for graphics 
is an easy process to leam, and i hope I 
have shown some useful techniques in 
animation. If you have any questions, 
write to me and include a stamped self- 
addressed envelope. 



Happy Landings. 



i 



John Stciner is an electronics instructor in 
the Faigo, North Dakota, school system. 
Before this he worked as an Audio and 
Communications technician in consumer 
and business electronics. He owns a color 
computer and is waiting for a disk system 
and other peripherals. 
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BETA 32K BYTE EXPANDABLE RAM FOR 

6502 AND 6800 SYSTEMS 

AIM fiS KIM SYM PET S44-BUS 

• Plugcompatihle with the AIM-6.VSYM expan- 
sion connector by using a right angle connec- 
tor (supplied). 

• Memtitv board edge «,nneclor plugs into the 
6800 S44 liuv. 

• Connects to PET using an adaptor tahle. 

• Uses + 5V only, supplied from the h™t com- 
putei- 

• Full documentation. Assembled and tested 
boards are guaranteed for one full year. 
Purchase priy? is fully refundable if board is 
relumed undamaged within 14 days. 

Assembled with 32K RAM S349,0n 

4T«ted wiJhlfiKRAM 329,00 

Bare board, manual & hard-lo-gfrtparLs, ., 99,00 
PET interface kit. Connects the 32K RAM board 
loa^lKorSKPET * 69,00 

See our full-page ad in 
BYTE and INTERFACE AGE 



wabash 




8" Of SVt- flexible diskelles cerlified I00°'o error 
free with manufaelurer's 5-year limited warranty 
on all 8" media. Soft -sectored in boses ot 10, 
5'/." available in lO-^ector, 
(Add S3, 00 }or plastic library cases) 

8" single sided, single density ....S2'7,SO 

8" single sided, double density 35,50 

8' double sided, double density 45.50 

5%" singlesided, single density 27,50 

5'/." sinelesided. doubledcnsity 29.50 

5 W "single sided, double density, IO-secloii29,50 

8" DISK DRIVES 

ShugarlSOlR $399.00 

NEC FDl 160 (double .sided) 5S9.0O 

Memorei MRX-101 8" Winchester style, hard 
disk drive, 10 megabytes (2,000.00 

TERMS: Minimum order S15.00, Minimum ship- 
ping and handling S3.00, Calif, residents add Sfn 
sales tax. Cash, checks. Mastercard. Visa and pur- 
chase orders from qualified firms are accepted. 
(Please allow two weeks for personal checks to 
clear before shipment,) Product availability and 
pricmg subject to change without notice, 
INTERNATIONAL ORDERS; Add 15 % In pur- 
cha^it' price for all orders. Minimum shipping 
charge is $20,00- Orders with insujficieitl funds 
will he delayed. Eicess jimds u'i/l be returned 
with i/our order. All pvi/es are U.S. only. 



16 K MEMORY 
EXPANSION KIT 



$24.00 



h'or Apple. TRS-SO keylward, Exidy, and all 
other systems using 4116 dynamic rams or 
equivalent. All IC's are prime Mitsubishi MK 
4116-3. 

• 200 NSEC access, 37S MSEC cycle 

• Burned-in and fully tested 

» 1 full year parts replacement guarantee 

ROCKWELL AIM 65 




AIM 65 with IK ram $425.00 

AIM 65 with 4K ram.- 485,00 

AIM power supply - 125,00 

Professional AIM enclosure -, 175,00 

Budget AIM enclosure 50,00 

KIM enelosure 40,00 

SYM enclosure 30.00 



compuTER Da^es 
1930 iu.couini nvE. 

ORnnOE. CA 99646 
(7l4)433-7980 



44 



MICRO - The 6502/6609 Journal 



No, 42 - November 1981 



Color computer owners^ 




Yes, that's right - for as little as 
S298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a ,10 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card"? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Mode! I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 

exatron 




DEALER ENQUIRIES INVITED 



Exatron, 

181 Commercial Street, 

Sunnyvale, CA 94086 



D Please send a 32K Color Computer 
Interface for $199.00 

D Please send a CCI Disk Card for $99.00 

□ Please include CCDOS and manual 
lor $29,95 

D Also include a ROM Backup adaptor 
for $19.9,') 

Please add $5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City 

Stale Zip 

Charge my: 

D MasterCard Interbank Code 

□ Visa Expiration Date 

Card 

□ Check enclosed for 

□ Ship COD (.$2.00 extra) 



Signature 



•:aK HAM plus oiik inieTratt 



TKK-S(i Is, I iradi-mark uf Tandj 



DROWNING IN PAPERWORK? 

The MAGIC WINDOW word processing system lets you breatti easier. 

MAGIC WINDOW is ttie professional tool thai will lessen ttie efforts ot communication and improve your productivity! 

Secretaries at APPLE, Engineers, writers of leading computer magazines and U.S. government officials tiave 
selected and use IvlAGIC WINDOW over all ttie other 
word processors available tor the APPLE II computej; 

IVIAGIC WINDOW'S overviihelming appeal among^ 
experts and novice computer users originate 
simulation of a standard typewriter. Add thr^ 
of disk file storage, four way scrolling provic 
of 80 column documents, logically placed 
learn single key editing commands, and you 
processor that is truly magical. 

Take a relaxing deep breath and ask your locg 
computer store for MAGIC WINDOW, 

ANNOUNCING BASIC MAIL 

BASIC MAILER is a mailing list merge system 
to take MAGIC WINDOW document files and rep-1 
names, addresses or any other section of thedocui 
individual data, creating customized letters, invoic 
etc, BASIC MAILER uses the same human engin 
systems used by MAGIC WINDOW. 

Together MAGIC WINDOW and BASIC MAILER 

create an affordable, powerful and professional 

word processing mailmg system. The uses for either of these 

systems are almost unlimited. ^_^_ 

10432 Butbank Boulevard • North Hollywood, California 91601 ■ (213) 985-5763 
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PRICE BREAKTHROUGH) 

I6K RAM BOARDS FOR 
APPLE JUST *129.95 



HftVE VCU BEEN WAITING FOB rue COST 
OF EXPANSION BOAPOS TO COME DOWN? 
SOUG WAIT IS OVEG. UP UNTIL NOW BAM 
EXPANSICN HAS COST AS MUCH AS 
SI95,O0. NOW 0«£6A «ICBOWABE IS 
PCCUD TO ANNOUNCE THE AGRIVAL OP A 
TCULV AEFOBDABLe EXPANSION CAGO, 
nCw VCU can cum PASCW., FOBTBAN. 
56t! CPM WITH K ZeO SDFTCWro. 
INTEGER SASIC. APPLESOFT AMP OTHER 
LANGUAGES ON VCtjB APPLE, NOW "^OU 
CAN IMCHEASE USUABLE MEMtKV FOS 
VISICALC. NOW -fOUIXJNT HAVE TOPAS A 
POGTUNE TO HAVE ALL THIS, 
AT 5'29.95, OMEGAS SAMEX 16 IS THE 
LOWEST PBICED OSID AVAr,J\BL£ 
TOPAN, 

WHAT PO SOU GIVE UP WHEN VOU 
PURCHASE THIS FIBST BEALLV 
AFFORDABLE BAM EXPANSION CABD? 
WELL, ~)DU GIVE IP HAVING TO REMOVE 
ONE GAM CHIP FCOM THE MOTHER BOARD 
OF VOJO apple, "TOO GIVE UP HAVING TO 
STGAP A CABl£ FBOM THE CARD TO SOLJG 
MOTHER BOARD, THAT'S IT, WHAT SCU 
GET IS A SIMPL£. BElIABlE, BOAGO 
THAT JUST Plugs IN, MEMOGS BEFGESH 
IS ACCOiMPlISHEO on THE BOAGD 
ITSELF. 



THEEAMEXI6 ISGUACANTEED NOT JUST 
FOG 90 DAVS, NOT EVEN 6 MONThS.CuG 
WARBANT'* IS FOG ONE FULL f EAR FROM 
DATEOFPUGCHASE. WEWILLREPAIROG 
REPLACE ANV BOARD THAT ISDEFECTIVE 
ThCCuGH MANUFACnjRE FOG A PEGICO 
OF ONE NEABAFTEB PURCHASE PGOVIDED 
This damage IS NOT USER INFLICTED. 
OGDER VOUG BAMEX (6 NOW 9N CALLING 
TOLL FISE I-eOO-835-2246, KANSAS 
BESIOENTS CALL 1-300-362-2421, 
MASTERCACO OC visa ACCEPTED OB 
S£rtf>SI29,95, ILLINOIS BESIOENTS ADO 
$7,80 SALES TAX 
ANOfHEB QUALITY PGCOUCT FGOM 
OMEGA MICeOW ABE, INC. 
FOCMEBlV OMEGA SOFTWAGE 
PBCOUCrS, INC. 
222 SO. CIVEGSIDE PLAZA 
CHICAGO, IL 60606 
PHONE 3(2-648-1944 

<iOMEGA MICBOWABE, INC, 

!B*tl£WiaN5 OF */Wl£ COMFllTEE. ItC PASCAL IS 1 
ffiGISrSSEO reaOEMABK Of THE K.<X.W% Of THE 
miv Of C« 5AN 3i£M. VJSFWLC IS * IS615TKED 

tbadembBk cf ffsstm. sofvna^ o'jH is n 

OEGISrEBEC TStatMfiK Of Ol&TU. BESEABCh INC 
zaO IS » BEEIS'EBED TSumtStK OF :iL_OG, INC 
SCflCASD IS « CEtlSIEOEO IBAOMAJK OF 

Micsosofr. 
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Galacti-Cube 



You are the Captain of a star- 
ship exploring the outer limits of 
our universe. You have 
discovered a gigantic cube 
fioating in space. Through the 
only opening you have fiown 
your ship inside, but now you 
can't find your way back out! 



Bob Bishop 

155 Michael Lane 

Santa Cruz, California 95060 



GALACTI-CUBE is a simple maze game 
in three dimensions. You are in a 
3x3x3 array of cubical compart- 



ments and must find your way out in no 
more than 40 moves, or else you lose. 
Moves are made by hitting the keys N, 
S, E, W, U, or D to move north, south, 
east, west, up or down, respectively. 
Although it appears small, a 3 x 3 x 3 
cubical maze actually has 27 rooms in 
it, which can make the task of finding 
your way through deceptively non-trivial. 

The program is written entirely in 
Apple n Integer BASIC and requires at 
least 8K bytes of memory. In fact, since 
the program uses no machine language, 
graphics, or special sound effects, it 
could probably be converted over to 
other CRT-type computers (such as the 
PET, TRS-80, etc.) without too much 
difficulty. 



A few words about some obvious 
cautions might be in order. The program 
assumes that the text screen is the stan- 
dard 24 X 40 Apple II screen. The 
PRINT statements in the program 
[especially around lines 5000-5900] 
must be entered carefully with exactly 
the specified messages and number of 
spaces as shown in the listing, or else 
things might not line up properly on the 
screen. Also, you might want to include 
a liberal amount of CTRL-Gs [bellsl in 
some of the print statements, such as in 
lines 560-580. (In my version, 1 have put 
a bell between each letter of the 
message.) In other places, like line 380, 1 
have explicitly indicated a bell via a 
REM statement. 



(HIT ANY KEY TO 3TAHT THE GAME) 



PRINT 



COfiMANB: 



fOU HAVE ";FUEL 



10 HBH *•" GAMCTI-CUBE •** 
?0 Kffl R. J. BISHOP 

30 DIK B0X(27],0UE(?7),N0DE{6),Bir(6),AII5 
W GOSUB 9000 
50 GOSUB ICOO 
60 VTAB 23: TAB 5: PEINT 
70 GOSUB 4000: GOSUB 5OO0 
90 LOi;-14:OI,D=LOC:FUEL-40 
100 REM MAIN LOOP 
no GOSUB 2000 

IW CALL -956: PPINT : PHINT 
!60 PRINT : TAB 7; GOSUB 4000: GALL -936 
165 IF AS*"" THEN 150 
no IF AJ{l,l)#"F" THEN 250 
leo CALL -936: PRIHT : PRINT 
190 PRINT : PHINT " FUEL UNITS" 
?10 FOE K=l TO lOOO: NEXT K: GOTO 150 
250 3-(0LD-l )/9*1 
260 I'(((0LD-l)/3) HOD 3]*1 
270 X'=((0LB-1) MOD ;) + l 
500 IF AS="E" THEN X=X+1 
310 IF AS="W" THEN ](=X-1 
320 IF A$="N" THEN Y^Y+1 
330 IF A$="S" THEN Y-Y-1 
340 IF AS="U" THEN Z-Z+1 
550 IF A$-"D" THEN Z=Z-1 
360 L0C'j;*3*(Y-l] + 9'(Z-O 
370 IF LOCOOLD THEN 390 
}80 PlflNT ""; GOTO I 50 : REM CONTROL-G 
390 ir SO OR X>3 OE Y<1 OR Y>5 THEN 700 
400 IF B0X(0LB)>-;2 AKB Z=0 then 800 
410 VAL=BO);(0LD)! IF VAL>-32 THEN VAL-VAL-3J 
420 IF VAIi>=16 AKD Z-4 THEN 600 
450 IF Z<l OR Z>3 THEN 700 
450 BITS=B0X(0LD) 

460 WAY=BITS-2»(BITS/2>!BITS'B1TS/2 
470 IF WAY-0 AMB A$="E" THEN TOO 
4aO WAY=BITS-2''tBITS/2):EITS-BITE/3 
490 IF WAY=0 AND A$="U" THEN 700 
500 WAY-BITS-2»[EITS/2):BITS-BITS/2 
505 IF WAY-0 AND A$-"N" THEN 700 
510 ¥AY-BITS-2'(BITS/2):BITS-BITS/2 
515 IF VAY'O AND AI="S" THEN 700 
5S0 WAY-BITS-2»[EITS/2):BITS=BITS/2 
525 IF WAY-0 AND A$-"U" THEN 700 
550 WAY-BITS-2»(BITS/2):BITS=EITS/2 
535 IF WAY-0 ANB AS-"1)" THEN 700 
540 WAY-BITS-2"tBITS/2):BITS-BITS/2 



550 7UEL-FUEL-I: IF FUEL>0 THEN 100 

560 CALL -956: PHINT " YOU ARE" 

565 PRINT 

570 FEINT " OUT OF" 

575 PRINT 

5S0 PPINT '■ FUEL!": 

590 GOTO 830 

700 CALL -936: PRINT " THAT BIREC-" 

710 PRINT : PRINT " TION HAS AN" 

720 PRINT : PRINT " OBSTRUCTION"; 

750 FOR K-1 TO 1000: NEXT K: GOTO 150 

aOO CALL -936: PHINT "YOU FOUND THE" 

810 PRINT : PRINT " EXIT IN ONLY" 

620 PRINT ! PRINT " "[41-FUELi" MOVES!"! 

8J0 GOSUB 2700 

840 FOR K-1 TO 2500: NEXT K 

S50 CALL -956: END 

9O0 END 
1000 HEM GENERATE THE HAZE 
1010 FOR K-1 TO 27 
1020 B0X(K]-12e 
1030 NEXT K 
1040 B0X(l4]-0 
1050 0LrE(1)-14:QBIG-l 
1060 XQBIG-1 

1100 for k-1 to obio 

1110 ind-oue(k) 

1140 knt-0:r0ab-1:bel-1 

1150 FOR J-0 TO 2 

1160 SET-J'-DEL 

1 170 FOR L-0 TO 1 

1180 NDX-irro+EEL 

1190 IF NBX<1 THEN 1400 

1200 IF (NDX-1)/SET<>(INB-l)/SET THEN 1400 

1250 IF B0X(NI)X)<12e THEN 1400 

1500 KNT-KNT*1 :N0DE(KNT)'NDX!BIT(KNT)-E0AI) 

1400 BEL--DEL:IiOAD-R0AE-tR0AD 

1450 NEXT L 

1460 DEL- SET 

1470 NEXT J 

1500 IF KNT=0 THEN 1600 

1510 NDX- RNB (KNT)H :XQBIG-X0BIG*1 

1520 QUE(XeBIG)=NOEE!MI)X) 

1550 bok(ind)'Box(ind)+bit(niix) 

1540 tib=2*bit(ndx) 

1550 if tib'4 or tib-16 oe tib-64 then tib-tib/4 

1590 B0X(N0DE(NDX))-B0X(N0DE(BDX))*TIB-I28 

1600 NEXT K 

1610 QBIG-XQBIG: IF 0BIG<27 THEN 1100 



(Continued on next page) 
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1700 HOLE-2* RND {2)»6» KBD (ZJ+IS" RBD (a)*1 

niO OPEN-16: IF H0LE<14 THEN OPEN-52 

1720 BOS ( HOLE) =SOX{ HOLE) +OPEH 

leOO RETUBN 

2000 HEM UPDATE THE DISPLAY 

2005 GOSUB 2700 

2010 Z-(0LE-l)/9*l 

2020 Y=U(0LD-')/5) MOD 5)+l 

2050 X=((0IJ)-1) MOD ;)H 

2040 VTAB 15-y-l 

2050 TAB 8*E->X+X-7 

2060 PRINT "-" 

2110 Z-(L0C-l)/9+l 

2120 Y=(((L0C-l)/5) BOB J)+l 

2i;0 X-((LOC-l] HOD 3)*1 

2140 VTAB i;-Y-Y 

2150 TAB 8»a-tX*X-7 

2170 POKE PEEK (56)' PEEK (40)+256* PEEK (41), 109 

2200 BITS'BOX(LOC) 

2210 VT-20;T-54!At="EAST"! GOSUB 2500 

2220 VT-22:T-;4iAS-"WEST"! GOSUB 2500 

2230 VT'2O:T=28!AS="N0RTH": GOSUB 2500 

2240 VT-22:T=28:Ai-"S0UTH"i GOSUB 2500 

2250 VT-20:T=24:AS-"UP": GOEUE 2500 

2260 VT-22:T=23!Ai-"IiOWN": GOSUB 2500 

2500 GOSUB 2600 

2400 OLD-LOG 

2450 RETURH 

25CO VAY=BITE-2*(BITE/2):BITS-BITS/2 

2510 K0DE=127: IF WAY THEN MODS-255 

2520 POKE 50, MODE: VTAB VT: TAB T: PRINT At; POKE 50.255 

2550 RETURN 

2600 VTAB 19: TAB 5 

2610 POKE 52,2 

2630 POKE 53,14 

2660 POKE 54,17 

2680 POKE 55.22 




PANORAMAS! 



wllh 



.35*% S*"^ Si 





HI-RES GRAPHICS DUMP ROUTINES 

Easy to Use! Multiple Scale Factors! 

Precise ReproductlonI Normal/ Inverse Inking! 

Dump either page one or page two, horizontally or 
vertically on the paper; or, dump both as a two page 
panorama with both pages butted in perfect registra- 
tion. Compatible with I/O cards trom Apple, Epson, SSM, 
Tymac, California Computer and Mountain Computer. 

SCALE FACTORS PROVIDED 



SUPPORTED 


PANOBAUIC 01 VERT 

1X 2X 3X 4X 5X 


HORIZ 

1X 2X 3X 


POST-PAID 
PFIiCE 


DPSOOO 
DP9001 
DP9500 
DP9501 


■ ■ * 

• • * ■ 

■ ■ • • * 


■ S 

■ * 
• B 


S 


39,95 


MX70 
MX80 
MX 100 


* * • ■ 


• B 




34,95 


IOS440 
)DS445 








29.95 


IDS460 
IDSS60 


■ • * 

■ ■ B B * 


B ■ 
» ■ 


■ 


39.95 



SmartWare 

2261 Cobble Stone Court Dayton, Ohio 45431 

513/426-3579 Dealtr Inqulrlet Imlltdl 



2690 BETUHN 
2700 POKE 52.0 
2710 POKE 55,40 
2720 POKE 54.0 
2750 POKE 55.24 

2750 KETUHN 

4000 KEK 'GET' FROM THE KEYBOARD 

4010 POKE -16568,0 

4020 CKAH- PEEK (-16584): IF 0HAR<128 THEB 4020 

4050 POKE -1636S.O:AS-"?" 

40S0 IF CHAR-141 THEN AS="" 

4090 IF CHAK-196 THEN A$="D" 

4100 IP CHAR-197 THEH AS="E" 

4110 IF CHAR'198 THEH AI-"F" 

4120 IF CHAR=206 THEN A$-"N" 

4150 IF CHAR-211 THEN AJ-"S" 

4U0 IF CHAR-21; THEM AI-"U" 

4150 IF CHAE-215 THEN A$'"W" 

4200 HETUHM 

5000 EEM DHAW DISPLAY 

5010 CALL -956: PSIHI " YOUR LOCATIOH 



5020 PEIMT ; 7BIHT 



(EOT) (MID) (TOP) 



COMPASS" 



REFEKEHCE 



i 



5050 
5040 
5050 
5 060 
5070 
5080 
5090 
5100 
5UC 
5120 
5150 
5140 
5200 
5210 
5220 
5250 



PRINT : 
PRINT : 
TAB 54: 
TAB 29: 
TAB J4: 
TAB 54: 
PHIHT : 
VTAB 6 
FOR K=l 
PRINT : 
NEXT K 
VTAB 1 6 
POKE 50 
VTAB 5: 
FOR K-1 
PRINT " 



TAB 54: PRINT "N" 

TAB 54: PRINT "!" 

PRIHT "!" 

PRINT "W <--•—> E" 

PHIHT "!" 

PRINT " I " 

TAB 54: PRINT "S" 



TO 5 
PRINT " 



TAB 25: 
5240 NEXT K 
5250 PRINT " 
5500 VTAB 18 
5510 FOE K-1 
5520 TAB 21 : 
5550 NEXT K 
5540 TAB 21: 



TAB 21: PRINT "OBSTRUCTION SENSORS" 

PRINT " 

TO 7 

";: TAB 9: PRINT " ";: TAB 17: PRINT 

PRINT " " 



; TAB 21 : PRINT " 
TO 5 
PRINT " ";: TAB 59: PRINT " " 



FEINT " 



5400 

5410 

5420 

5450 

5140 

5450 

5500 

5900 

9000 

9010 

9020 

9050 

9040 

9050 

9110 

9120 

9150 

9140 

9150 

9160 

9170 

9190 

9200 

9210 

9220 

9250 

9250 

9260 

9270 

9280 

9510 

9520 

9550 

9540 

9550 

9999 



TO 7 

";: TAB 18; PRINT 



VTAB 15: PRINT 

PRINT 

FOR K-1 

PRINT " 

NEXT K 

PRINT " "i 

POKE 50.255 

RETURN 

CALL -9561 VTAB 10 

TAB 10: PRINT "•" GALACTI-CUBE •"" 

PRINT : TAB 19: FEINT "BY" 

PRINT : TAB 14: PKINT "HOBERT BISHOP 

FOR K-1 TO I5OO: NEXT K 

CALL -956 

PRINT " YOU ARE THE CAPTAIN OF A STAB-SHIP 

PRINT "EXPLORING THE OUTER LIMITS OF OUR UNI-" 

PRINT "VERSE. YOU HAVE DISCOVERED A GIGANTIC" 
PRINT "CUBE FLOATINO IN SPACE. THROUGH THE" 
PRINT "ONLY OPENING YOU HAVE FLOWN YOUR SHIP" 
PRINT "INSIDE. BUT NOW YOU CAN'T FIND YOUR WAY" 
PRINT "BACK OUT!" 

PRINT " FEOTI YOUR EXPLORATIONS YOU HAVE" 
PRINT "LEAHNED THAT THE CUBE IS DIVIDED INTO" 
PRINT "AN ARRAY OF 5X3X5 CUBICAL COMPARTMENTS" 
PRINT "AND YOU ARE CURRENTLY IN THE CENTER-" 
PRINT "MOST ONE." 

PRINT " YOUR SHIP IS EQUIPPED WITH A CIS- 
PRINT "PLAY INEICATINO YOUR LOCATION. THE" 
PRINT "OBSTRUCTION SENSORS INDICATE WHICH DI-" 
PRINT "RECTIONS (FLASHING) ARE BLOCKED. YOU" 
PRINT "HOVE YOUH SHIP BY HITTING THE FIKST" 
PRINT "LETTER OF THE DIRECTION YOU WANT TO GO." 
PRINT "YOUH FUEL SUPPLY (WHICH IS DISPUYED BY" 
PRINT "HITTING THE LETTER. F) WIU. ONLY LET" 
PRINT "YCU MAKE UP TO 40 MOVES. GOOD LUCK!" 
RETURN 
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the BEST <1ANDI> the BEST 



keyboard buffer 




& SHrrr key uppeh/lower case control 



Separately, they have more features 
and out pecform all the rest. But 
together as a team they perform even 
better. Look for the Graphics +PIus 
soon. It's a RAM based character 
generator to conplimmt the Hwer Case 
tPlus. It will allow you to define the 
character set to yoar needs. You could 
load German, French, Scientific, 
Engineering or any other special 
chacactera into the Graphics +Plus and 
use it as if the Pipple II was designed 
specially for that application. And 
that's not all. If you define the 
chatacters as graphics, you can do 
extremely fast HI-RES type graphics on 
the text screen without all those 
cumbersome and slow HI-RES routines 
and 8K screen. For all the details on 
this triad of products, send for our 
free booklet "Lower case adapters and 
keyboard buffers fcciii the inside out". 
This booklet gives all the details 
about lower case adapters and keyboard 
buffers in general. It also has a 
section on the Graphics +Plus (RAH 
based character generator) . 



lower case adapter 




GRAPHICS S LOWER CASE CHARACTER GENERATOR 
FOR THE APPLE II COMPUTER 



$119.95 



$69.95 



* Wore buffti than others. 
+ CleaE buffet control. 

+ SHIPT key entiy of uppec/lower case. 

* Easy CTL key access to special chars 

• I - ■ ( 1 _ [ \ □". 

+ Allows BASEC proqcains with standatd 
INPUT to Support Lowei case without 
softwiuce modification. 

+ A lower case adapter is required 
to display lower case. 




I7gi-G Capital 
Corona, CA 91720/ 
(714)735-1041 



INC. 



t Hormal & inverse Lower Case, 
t 2 complete character sets an board. 
+ Graphics character font built in. 
+ Expansion eochet allows access to 

cxteERdl character sets. 
* 2716 EPROM compatible Char generaCor. 
+ More supporting software, ion diskettej 
+ Keyboard +Plus S Graphics -t-Plit,^ designed 

ground the Lower Case tPlus . 



DOSOURCE 3.3 DISASM/65 

for the Apple II 



A source listing of DOS 3.3 

Disassembled & commented by Randy Hyde 

We took our DISASH/6S disassembler program, disassembled 
Apple's DOS 3.3, and added meaningful tables and comments to 
create DOSOURCE 3.3, a perfect companion to "Beneath Apple 
DOS" hy Don Worth and Pieter Lechner*. DOSOURCE clearly lists 
each routine used by J^le DOS. 



by Randy Hyde 

DTEAEH/fi^ is a LIEft Compatible 6502 (^Issssembier for 
Che Apple II. DISASH/65 takes uiiadocned machine code and 
converts it to an under &tandable assembly lamjuaqe tej^t 
£ile. riEA£H/65 allows users to di sasseiiible 6502 
iiLstructioiL codcSf HEX dat^j stting data, address data, 
stacli data, and iroiel DISaSm/65 is by far the most 

fowerful 6502 disassembler Available for the Atple II, 
n fact, we used it to disassemble DOS 3.3 fot out 
DCSOURCE package. Over 500 happy users bought DlSASH/*5 
for 524,95 without the source listiny (The source 
listinu wds available for 535.00 eKtia}, Now, for a 
liimted time, you get both the DISA5M/65 program and Che 
source listing foe 529.95 lDISASrV65 sources arc in a 
LISA 2.x compatible format). Complete documentation 
include^^. 



DOSOUHCE is a LISA J. 5 Compatible source listing 
qC QOS 3.3. LISA 2,5 owners can load and reassemble 
DOS at othec locations for special applications 
Isuch as in a Raw card), DOSOURCF is also a text 
file that can be loaded into your favorite assembler 
and converted Cor use with it. DOSOURCE is also an 
a6&?mbled listing that you can dump to a printer for 
reference purpioses. 

With DOSOURCE you can: 

-> Peassembje DOS 3.3 at different addresses. 

-> irtiliie several useful routines Eound within DOSj 
flucti as decimal input and output, fiany routines 
within aos are as useful as loutine^p found within 
the Apple momtoc. ..only you didn't know about 
them until nowi ! 

-> Remove portions of POE, that you may not need, 
Crceing memory for program use. hlost peooians du 
not need the 'RE:HA>1E", "ENIT", "HSflVf, "ERDH" . 
"BLOAD", "CATALOC, ctc. coPiQiands while they are 
running. As much as 4K can be removed £rom DOS 
without affecting your programs operation. Think 
shout it the next time you get a HEM PULL error 
or need to declare an array that's just a littl? 
bit too big. 

-> Leain lot'^a ot 6502 prograrBmng tricKs - K)G 3.3 
IE t u 1 1 o£ 'em. And you can learn them by 
studying the source listing. 

-> Hake "Patches" to DOS 3.3 and understand exactly 
whats going on. Ho more "guessing gauie' resulting 
in unreliable software. 

SPECIAL INTRODUCTORY PRICE $39.95 
with "Benealh Apple DOS' SS5.00 

■ Beneath Apple DOE is published by Quality 
Software, sugijested list $19.^5 




Lazer hlicroSystems ' products are in computer 
stores all across the country. Howevei, if you 
cannot locate one, you can otdec direct fioro us 
at 1719-G Capital* Cocona. Calif. 91720. 

* California residents must add 6% sales tax. 
■ Master Card & Visa {H/all vital info) welcome, 
•< Allow 2 weeKa additional for cheeks to clear. 

* Orders outside U.S.A. add 515.00 for shipping 
& handling. 



Lower Case -Hilus, Keyboard *-Plus, and Graphics 
tFlus are trademarks of Lazer HicrOSystemsi 
Inc., Cotona, Calif. 

Apple J[ and ApplewriCcr arc Cradcnarks of At^le 

Computer , Inc. « Cupertino. Calif. 
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The Games PEopU Buy 



By Mary Ann Curtis 
and Marjorie Morse 



You can be sure that all computer 
users, even the most serious ones, have 
at one time oi another played games on 
their machines. We decided to take a 
look at this lucrative market, from the 
point of view of the dealer and the 
manufacturer. 

Dealers 

ComputerLand of Nashua, New 
Hampshire, noted that Raster Blaster, 
an arcade-style pinball game written by 
Bill Budge of BudgeCo in California, 
has been a big seller. Other New 
England dealers also reported that 
Raster Blaster is in demand. 

Another popular game — both in 
New England and on the west coast — 
is Ultima from California Pacific Com- 
puter Company. This dragons and dun- 
geons game is in marked contrast to 
Raster Blaster. Rather than providing 
quick action and immediate success or 
failure, Ultima can take up to a month 
to play, and the user must remember 
many variables. 

On the west coast. Castle Wolfen- 
stein IMUSE], Falcons (Piccadilly Soft- 
ware), and Apple Panic |Broderbund), 
are all popular now, along with Raster 
Blaster. Southern and midwestem trends 
follow the same pattern. 

Generally, dealers told us that 
adults are the primary purchasers of 
games. However, one store manager 
said that everyone "from eight to 
eighty" buys games. Users' back- 
grounds have little bearing on the type 
of game they'll buy. For instance, a 
Boston dealer said he has seen a 
systems analyst buy Apple Panic. And a 
spokesperson ai Computer Town Inc., 
in Salem, New Hampshire, pointed out 
that ",,.a businessman is looking for 
something he doesn't have to think 
about — a fast-action game; that's why 
the space games and pinball games sell 



well," Educational-game software is 
carried by most dealers, but does not 
sell nearly as well as the purely enter- 
tainment variety. 

Most of the popular games fall in 
the $25 to $30 price range. Game soft- 
ware is sold almost exclusively on 
disks. Dealers said that they've had 
cassette games on their shelves for 
years. One salesperson pointed out that 
the single-user games |you against the 
computer) are the most popular. 

Popularity of a game seems to relate 
directly to its time on the market, A 
saleswoman in Houston, Texas, said 
that the most recent game is usually 
the most popular, A California dealer 
agreed — games are constantly changing; 
the hottest is the newest. And the 
stores have to be aware of these trends. 
At ComputcrCity in Salem, New Hamp- 
shire, they believe you have to keep up 
with the fads; a store must carry the 
game when it's popular. 

Manufacturers 

An entertaining, successful game 
must be easy to understand and play. 



and must use sound effects, according 
to Tom Jackson, Director of Marketing 
at MUSE Software, The designer of 
Castle Wolfenstein, MUSE's current 
best seller, obviously had these 
elements in mind. Jackson believes 
that Castle will become a trendsetter 
because it effectively combines the ap- 
peal of both adventure and arcade 
games, 

Doug Carlson of Broderbund Soft- 
ware offered a similar opinion about 
the features that make a first-rate 
game. He told us that consumers want 
good sound and animation plus rules 
they can learn fast. Anything too in- 
timidating isn't attractive. [Apple 
Panic, Broderbund's best selling game, 
is arcade-style, and features a little man 
chased by man-eating apples.) 

One popular arcade-style game is 
Sneakers, made by Sirius Software. 
"It's a fast-action game, and that's 
what's selling now," said manager Jim 
Ackermann, Sirius' Space Eggs, 
another arcade game, is their all-time 
best seller, and is still moving well. 




i 



Adults msy buy games, but children enjoy playing them too. Here Sean and John 
at Computer Town in Salem, New Hampshire, compete in a game of Sneakers. 
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Jonathan Wood of Computerland In Nashua, New Hampshire, demonstrates 
Raster Blaster, tha store's currant best seller. 



Rich Richmond, marketing mana- 
ger at Adventure International, said 
that computer games, in general, have 
become sophisticated in their use of 
sound and graphics, but that "game 
theory has been amazingly poor." He 
defined game theory as the thought and 
imagination that go into design of a 
game (the concept behind the moves, 
sequences, etc.] and he cited Chess as 
having the all-time best game theory, 

Richmond said that computer game 
manufacturers have had to copy arcade 
games for survival, but due to new 
copyright laws they will no longer be 
able to rely on this method. He thinks 
that eventually computer game pro- 
ducers will have to use more imagina- 
tion to provide the player with more 
long-term satisfaction from playing a 
game. 



BudgeCo, producers of Raster 
Blaster, was new to the industry in 
April, 1981. So far their remarkably 
successful game is BudgeCo's only pro- 
duct. Bill Budge, author of Raster 
Blaster, for now is the company's sole 
programmer. 

Quality Software offers Starbase 
Hyperion, a space simulation arcade 
game for the Atari, while Instant Soft- 
ware makes Space Shuttle, an air flight 
simulation game. 



Mary Reed, Director of Marketing 
at Instant Software, thinks that the 
pubHc wants simulation games with 
good graphics and varying levels of 
play. A Creative Computing Software 
spokesperson believes arcade games 
should have these same features. He 
added that the game should have a 
place to record the player's score — to 
play against next time, or to show off. 



Creative's Advanced Air Traffic 
Controller is a simulation game whose 
popularity has been increased by the 
national air traffic controllers' strike. 
As with arcade games, the spokesman 
had some ideas on features that 
strategy and adventure games should 
include. Games with "seemingiy 
unattainable goals" will never sell 
because the player gets too frustrated, 
he said. He maintained that if the goal 
of the game may be reached only after 
playing for a long time |30 minutes or 
more), the game should reward the 
player from time to time to give him 
encouragement. 



If these comments sound to you 
like rules a teacher would follow, 
you're on the right track. Simulation 
games are popular with educators. 
Robot Wars teaches programming 
skills, and Three Mile Island helps 
players imderstand how a thermo- 
nuclear reactor works — but at the 
same time is challenging and fun. jBoth 
of these games are manufactured by 
MUSE. I 



Strategic Simulations in California 
manufactures strategy games. Two of 
their recent best sellers are Warp Factor 
and Computer Baseball, both for the 
Apple. According to a company spokes- 
person, most of their games are dis- 
tributed to the east and west coasts, 
with very few going to the south or 
midwest. 



Strategic's software is generally 
war-game in nature. The games take 
several hours to complete and are 
designed to challenge you. 

Two new releases from Strategic are 
Battle of Shiloh for the Apple or 
TRS-80, and Tigers in the Snow, a game 
based on a WWn battle. 

Adventure, fantasy, and role- 
playing games are also popular now, 
Jim Connelley of Automated Simula- 
tions reported Temple of Apshai to be 
his nunaber one best seller. This role- 
playing game won the Hobby Industry 
Association of America's "Best Com- 
puter Game of 1980" award in July of 
this year. Automated Simulations does 
not sell arcade games. 



Programmers 

We found that some software 
manufacturers have their games writ- 
ten in-house. For instance, MUSE 
employs the well known game author 
Silas Warner as a programmer, MUSE, 
though, like all other manufacturers 
we contacted, accepts games from out- 
side authors. Adventure International 
claimed that 80% of its games were 
written outside. 

If you are writing a game and wish 
to sell it to a software company, we 
suggest that you keep in mind these 
suggestions, 

1, Keep directions as simple and as 
brief as posible. 

2, Offer more than one level of play. 

3, Provide comments on play from the 
computer (especially humorous], 

4, Devote special attention to graphics 
— make objects look realistic. 

5, For adventure- type games, the more 
variables, the better ii,e,, monsters, 
treasures, aids, places to hide, etc.], 

6, Provide more than one means to 
combat the enemy. 

7, Include sound whenever possible. 

If you still have problems writing 
your game, two game manufacturers 
will soon offer more help: A v ant- 
Garde's Hi-Res Secrets and Broder- 
bund's The Arcade Machine. 
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we beat the price... 



ATARI 




800™ $749 



A 

ATARI 

Computers 
for people: 



ATARI 810 
DISC DRIVE 



S444 




ATARI SOFTWARE 



CXaOa Word Processor 


511900 


CX<ID5 PILOT 


168 00 


CX^n MICftOSOFT BASIC 


SS8 00 


CXJIOI InvMaMan to Programrrung 1 


SI? 00 


CXiWl Kingdom , 


S13 00 


CX4103 St3llSIIC5 , ,.., 


si?oo 


CX4104 Mailmg LiSl 


SI 7 00 


CX4I06 Blackjack 


SI 3 00 


CX4I0S (rivilalion to PfograrTirnmg 2 


S20 00 


CX4I07 Sioihylhm 


SI 3 00 


CX410B Hangman 


SI 3 00 




_. S1700 


CXai lOToucfi Tyoing 


J20 00 


CX41 1 1 Space Invaders 


S1?«) 


CX411; States 8 Capitals 


S 13.00 


CX4n4 European Courirnes a Capiials 


11300 


CX4n5 Morigage a Loan Analysis 


SI300 


CX41 16 Personal Filness Prog 


SS9 00 


CX4n ^ Invilalion lo Pfoyramrning 3 


S20 00 


CX41 Ifl Conveisalionai French .... 


145 00 




. , SaS.OO 




_.. S J 5.00 




_. S1300 




.. SaS.OO 



CX6001 JS HislO'V 
CX6003US GouernmenI .. 
CX6003Suuervisoiy Skills _ 
CX6004 World Hislory 
i;X6O05 Oasrc Sociolngy .. 
CX6006 Counseling Prooed . . 
CX6007 Principal ol Acl 
CX6008 Ptiysics 
CX6009 3reat Classics 
CX6010 Business Comm 
CX60II Basic Psyctiology , 
CX60I2 Elteclive Willing , 
CX60U Principals ol EcOn , . 

CX60I5 Spelling 

CX6016 Basic Eieclricily . . 

CX6017 Basic Algebra 

CXeiOB Bono Analysis 

Cxei07 Slock Analysis 

CX8108 Stock Charting 

CXL4001 EOucalion Syslem l.laster 

CXL4O02 Basic Compjling Language 

CXLW03 Assembler EOUor 

CXL4004 Baskelbaii 

CXL4O05 Video Easel 

CXLJOOS Super Breakout 

CXL4007 Music Compose' 

CXL4009Che5S .. 

CXL4010 3 D Tic-Tac-Tow 



S23.00 
S23.00 
S23.00 
$23 00 
S23 00 
123.00 
$23 00 
S23 00 
S23 00 
S23 00 
123 00 
S23 00 
123 00 
123 00 
$23 00 

523 00 
$20 00 
120 00 
120 00 
$21 00 
S46 00 
146 00 

524 00 
$21.00 
$30.00 
$45 00 
S30 00 
S24 00 



CXL4011 Star Raiders 139.00 

CXL4012Mlssle Command IJS.OO 

CXL4D13Asleroi(ls ,.132.00 



CXL4015TeleLink 

C^mpgtiome . . .. -. ... 

Visicalc 

Leite' Perl eel (Word Processor) 

Source 



_.. $20 00 

. ... $74 95 

..$148 00 

1119 00 

$89.00 



Atarj^ Peripherals: 



400 IBK .... ., ,..,$32900 

410 RecorOer ,.,, - $59 00 

822 Printer ,.,. 1359.00 

825 Printer , I CALL 

830 Modem 115900 

850 Interlace $ CALL 



Accessories 



Atari'' 

Netv DOS 2 System 
CX'O Ligni Pen 
CX30 Paddle 
CX40 Joy Slick 
CXB53 I6K RAM 

Microtek 15K RAM $75.00 

Microtek 32K RAM $169 00 



121 00 

$64.00 
.11900 
.11800 
.189 00 




CBM Software 



commodore 




CBM 8032 $1099 



VIC 20 

$259 



Word Pros Plus 
WordPro4 PI PS 
Commodore Tax Package 

Visicalc 

BPI General Ledger 
OZZ Inlormation System 
Dow Jones Porlfolio 
Pascal . . , 

Legal Time Accounting.. ,_ 

World CratI 80 

Word Check ,,.,. 

CreateA Base ..-. 

Power 

Sockel 2 Me 
Jinsam 



1199 00 
S299 00 

$399 00 
1149 00 
1329 00 
1329 00 
11?9 00 
S239 0O 
$449 00 
S2S9 00 

iiaooo 

$239 00 

189 00 

$20.00 

Call 



4016 

4032 

8096 

CBM4022 Prime' . . 

Tally 8024 

CBM C2I^ Cassette Driye 

CBM404C Dual Disk Dnye 

CBM8050 Dual Disk Dnve 



$799 00 
$999 99 
.$1795 00 
. . $639 00 
$1699 00 
.. SS9 00 
. $999 00 
$1349 00 



Vic-TV Modual $19.00 

Vic Cassette $69.00 

Vic DisK Drive $ Call 

Vic 6 Pack program $44.00 



Disks 

CX8100 Blank Disk (5) 122 00 

Sycom Blank Disk (10) 129.00 

Ma-ell Blank Disk 110] . . ..., 136.00 

Niaxeli Blank Disk (101. 146.00 

Printers 

Call tor prices on trie new NEC models, 

Epson MX. 70 

Epson MX-eO 

Epson MX-80 FT ? Call for Prices 

Dt a trio 630 

TEC 1500 Slariyriter25cps 11495 00 

TEC ISOOSlarivriter 45cps $179500 



} 



No Risk, No Deposit On Phone Orders, COD or Credit Card, 
Shipped Same Day You Call * 

' on all m stock units 
1NPA,CALL(717) 327-9575 



(800) 233-8950 



COMPUTER MAILORDER 

501 E. 3RD ST.,WILLIAMSPORT. PA17701 



To Order: 

Pnone orders triviled IfiGO numlwi 15 (or otOei OesK 
orly) Or send chpch or money order and receive 
Iree sniDomg Penrtsyivania residenls add 6% 
sales (a- 'idO 3^* for Visa or M C Equipmem 
IS siibjecr 10 piic.e change ard availatnlily wufkoui 
nolice Please 11 all Oelweer n AM 3 5 PM 



Saucer LauncIi 



Atari arcade games contain 
specialized video processors to 
control and manipulate their 
game images. The Atari 800 
computer system contains much 
the same hardware. Saucer 
Launch Is a combination of 
BASIC and assembler level 
programming designed to use 
these Atari video processors. 
Although a 24K byte Atari 
system Is required for Saucer 
Launch, the game itself should 
help provide insights into this 
versatile personal computer. 



Mike Dougherty 

7659 West Fremont Ave. 

Littleton, Colorado 80123 



Saucer Launch Scenario 

You are the Gunner's Apprentice and 
one of the few remaining survivors of 
the Starfleet patrol. Sent as an envoy of 
peace, the patrol was attacked by a 
squadron of robot saucers. A combina- 
tion of number and surprise has ren- 
dered the rest helpless. No fellow patrol 
ships are responding to your short range 
communications; long range communi- 
cations with the Starfleet have been 
severed. 

Apparently this innocent planetoid, 
P-XA123, has been responsible for the 
robot saucers sighted in this sector of 
the galaxy. Devastatingly accurate once 
laimched, a sufficient fleet of robot 
saucers could overpower the main Star- 
fleet. The only chance is for your patrol 
ship to destroy at least 60 percent of the 
robot saucers while they are being 
launched. 

With considerable effort, the crew 
has managed to repair the laser cannon. 
This cannon, steered by the Master 
Gtmner's control stick, fires auto- 
matically when the laser cross hairs 
overlap the target. Unfortunately, the 
patrol ship is hovering immobilized in 



the rarefied atmosphere of P-XA123 — 
the saucers must be destroyed as they 
are launched. 

The last attack left the Master Gun- 
ner critically wounded. Since you are 
the best trained member of the crew, it 
is up to you to eliminate 60 percent of 
the saucers launched and save the 
Starfleet. 

A word of warning; the automatic 
sensors of P-XA123 are capable of 
detecting the approaching Starfleet. As 
the Starfleet unwittingly moves into an 
ambush, the saucers will be launched at 
an ever- increasing pace. 

Good luck! The fate of the Starfleet 
lies completely in your liands. 



Introduction 

This article has been written to serve 
several purposes. First, the Atari 800 
computer has several specialized "video 
processors" allowing outstanding game 
displays. Second, the Atari version of 
BASIC supports an easy interface to 
assembler level subroutines — a needed 
feature for implementing many real 
time programs. Tfiird, the combination 
of properly designed hardware and good 
software achieves results unobtainable 
with either alone. Fourth, an "arcade- 
like" game is possible in Atari BASIC 
whUe remaining a respectable program- 
ming task. Hopefully, at the end of this 
article, the reader will have a better 
imderstanding of the Atari 800 computer 
system. At the very least, "Saucer 
Launch" will serve as a model to disect 
for that better understanding. 

The two manuals, Opemting System 
Usei's Manual and Hardware Manual, 
which may be ordered directly from 
Atari, contain a detailed description of 
the hardware used in Saucer Launch. 
One word of warning: the special dis- 
play modes of Saucer Launch interact 
with BASiC memory locations causing 
unusual Atari behavior. Before usmg 
other programs, switch the Atari off and 
on to reset the BASIC memory. 



Definition of Saucer Launcli 

Saucer Launch involves manipu- 
lating a cross hair pattern via joystick #1 
|STICK(0]) to touch a computer- 
generated "saucer" target. The saucers 
move upward along straight lines at a 
random angle. Any contact or collision 
between the cross hair pattern and the 
saucer partem counts as a "hit." If the 
saucer reaches an edge limit prior to 
contact, the round is scored as a "miss." 
One hundred saucer laimches from ran- 
dom positions on the ground comprise a 
game. The goal of Saucer Launch is to 
hit [destroy] 60 of the 100 saucers 
launched. The overall average speed of 
the game increases linearly with each 
saucer launched. 

The following features were designed 
into Saucer Laimch: 

• The game player is looking out from 
the viewport of the Master Gunner 
over the saucer launch field, 

• The cross hair pattern of the laser can- 
non is controlled by the joystick. 

• A hit is rewarded with a combination 
of sound and light as the saucer target 
explodes. 

• A miss is signaled with a "buzzing" 
sound. 

" The saucers grow smaller the higher 
|further| they get, becoming harder to 
hit if the player's reaction time is 
slow. 

• The average speed of the game is pro- 
grammable and increases with each 
saucer, 

• The saucers travel in essentially 
straight lines at random upward 
angles. 

• A saucer emits an "engine" sound to 
allow audio feedback during game 
playing. 

■ To increase the "psychological 
stress" of the game, a background 
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drone increases in pitch as the game 
progresses. 

I A running score of hits, misses, and 
percentage is output after each round. 



From an examination of these 
features, a combination of BASIC and 
assembler level subroutines is required. 
The sound and color manipulations, the 
running score, and the random number 
generation are most conveniently pro- 
grammed in BASIC. However, to respond 
rapidly to the joystick and for rapid 
overall movement, assembler level 
subroutines are required. Thus, only by 
combining the best features of both 
languages is Saucer Launch practical. 

Saucer Movement 

One problem that had to be solved 
prior to designing Saucer Launch was 
the straight line saucer movement at a 
random angle. The method chosen to 
encode the saucer movement involved 
interpreting a byte as a pattern of eight 
separate move commands. Each bit 
position indicates whether the saucer is 
to move |a one bit] or not to move (a 
zero bit) for that given step. A set of four 
bytes determines the saucer movement 
in the y positive |YP1, y minus (YM), x 
positive (XP|, and x minus (XM) direc- 
tions [up, down, right, left respectively]. 
By repeating the cycle, every eighth step 
leaves the saucer at a new position along 
a straight line, if the bit pattcms are 
chosen at random, then this "straight 
line" path of the saucer will form a 
"random" angle. 

Specifically, assuming that "MASK" 
is initialized to 1, the following logic 
wUl move the saucer one step and 
prepare for the next step; 

if (YP AND MASK] not equal to zero 
then move saucer UP 

if (YM AND MASK] not equal to 
zero then move saucer DOWN 

if |XP AND MASK] not equal to zero 
then move saucer RIGHT 

if |XM AND MASK] not equal to 
zero then move saucer LEFT, 
shift MASK left one bit 

if [MASK = 0) then set MASK to 1 

where "AND" is the "logical and" 
operation. An example of this type of 
movement is represented in table 1. For 
Saucer Launch, motion in the y minus 
direction, YM, was set to zero so that 
the saucers would always launch upward. 



Tab's 1: Saucer Motion via Bit Patterns 

Assume that YP = 247 = $F7 - B'llUOlII' 
XP = 89 = $59 = B'OlOl 1001' 
YM = XM = 



Step 



Bit Mask 



Mask .and. YP Mask .and. XP Movement 



1 0000 0001 


0000 0001 


0000 0001 


UP, RIGHT 


2 0000 0010 


0000 0010 


0000 0000 


UP 


3 0000 0100 


0000 0100 


0000 0000 


UP 


4 0000 1000 


0000 0000 


0000 1000 


RIGHT 


5 0001 0000 


0001 0000 


0001 0000 


UP, RIGHT 


6 0010 0000 


0010 0000 


0000 0000 


UP 


7 0100 0000 


0100 0000 


0100 0000 


UP, RIGHT 


8 1000 0000 


1000 0000 


0000 0000 


UP 


9 0000 0001 


0000 0001 


0000 0001 


UP, RIGHT 


10 oono 0010 


0000 00 io 


0000 0000 


UP 


11 0000 0100 


0000 0100 


0000 0000 


UP 


12 0000 1000 


0000 0000 


0000 1000 


RIGHT 


and so on 








Table 2: Summary of BASIC Program 






Lines Function 









1000-1999 POKE and relocate the USR function and USR data base 
into memory. 

2000-2999 Initialize the Player/ Missile graphics; draw background 

3000-4999 Main game loop. For 100 rounds: 

select target position and YP,YM,XP,XM 

initialize collision registers 

wait a random interval before launching saucer 

initiate sounds for this round 

call assembler level USR function to control movement 

if a collision, then call hit subroutine at 5000 

if a miss, then call miss subroutine at 6000 

output current score 

next round 

if less than 60 hits, then call failed subroutine at 8000 

else cail success subroutine at 9000 

GOTO 2000 for next game 

5000-5999 Hit target subroutine; blow up the saucer with soimd 
and color 

6000-6999 Missed target subroutine; erase saucer and buzz the player 

7000-7999 Draw the saucer launch world 

8000-8999 Mission failed subroutine; destroy the Starfleet 

9000-9999 Mission succeeded subroutine; congratulate the player 



I 

I 

I 



BASIC USR Interface 

The USR function is described in 
Chapter 1 1 of the Atari BASIC Reference 
Manual. Unfortunately, the USR code 
and data base required by Saucer Launch 
is greater than the free memory avail- 
able in page 6 laddresses $0600 -$06FF]. 
Saucer Launch solves the problem by 
storing the data base in page 6 and 
POKEing the code into a character 
string, CODE$. Since the location of 
CODES depends upon the size of Saucer 
Launch, the USR functions are relocated 
"on the fly." Each address requiring 
relocation is assembled relative to an 
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origin of zero. Then the relocated ad- 
dress is simply this calculation offset to 
zero plus the starting address of CODES. 
However, if the program is stopped and 
modified, re-mn the entire program. 
Atari BASIC moves the variables as 
necessary to make room for the program 
lines. After movement of CODES, any 
relocated addresses will point to the 
wrong place in memory. 

Conclusion 

The final game of Saucer Launch is 
outlined in table 2 and listings 1 and 2. 
In most cases, I used very straight- 
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SAUCER 



LAUNCH 



by Mike Dougherty 



1 REM . . 

2 REM 

3 REM .. 

4 REM 

5 REM 

100 DIM C0DE«(512) ,ByTE«(2) 
200 GRAPHICS ofrOKE 752,1 . 

1000 REM 

1001 REM 

1002 REM . . . LOAD UBR FUNCTION . 

1003 REM 
1001 REM 

lOlO fl-ADR(CDDE»)!REM ADDR OF USR FUNCTION 

1020 AHI-INT<A/256) :REM HIGH BYTE 

1030 AL0-fi-AHII'23fcjREM LOW BYTE 

1035 PRINT "Loading USR function." 

1040 BOSUB IZOOiREM LOAD FUNCTION 

1045 PRINT "Loading USR data base." 

1050 BOSUB IBOOiREM LOAD DATA BASE 

1060 BOUND 0,0,0,0 

1070 PRINT "Pre«5 trigger to continue. "i 

1080 DUMMV-RNDd) I IF BTRIO(0)<>0 THEN GOTO lOBO 

1090 GOTO 2000 

1200 REM 

1201 REM ... READ/POKE USR 

1202 REM 

J210 READ BYTEHREM READ A BYTE DF OBJECT CODE 

T CODE 

1220 IF BYTE«=".," THEN RETURN 

1230 IF BVTE»-"««" THEN 13O0 

1240 GDSUB 1400tREM CONVERT BYTE* TO BYTE 

1250 POKE A.BYTEsA-A+l 

1260 GOTO 1210 

1300 REM 

1301 REM ... RELOCATE ADDRESS 

1302 REM 

1310 READ BYTE»iGOSUB 1400i LO-BYTE+ALO 

1320 READ BYTEtiGOSUB 14O0i HI-BYTE+AHI 

1324 IF L0>255 THEN LO-LQ~25&i HI-HI*1 i GOTO 1324 

1330 POKE A.LOiA»A+l 

1340 POKE A,HIiA-A+l 

I3S0 GOTO 1210 

1400 REM 

1401 REM ... BYTE* — > BYTE 

1402 REM- 
1410 BYTE-0 

1420 V-ASC<BYTE«<1>) iGOSUB 1430 
1430 V-ASC(BYTE»<2) ! iBOSUB 14S0 
1440 RETURN 

1450 IF V<5B THEN BYTE-BYTE* 14+V-48 
1460 IF V>57 THEN BYTE-BYTE! 16+V-55 

.1465 SOUND O, BYTE, 10, B 

1470 RETURN 

1300 REM 

'l501 REM ...* USR OBJECT CODE 
'l502 REM 

1310 DATA 68,F0,0A,C<?,07,F0,07 

1512 DATA AA,68,&a,CA,DO,FB,60 

1514 DATA 6B,aD, 01, 06,69,90,00,06 

1516 DATA 6e,BD,03,06,6a,BD,02,06 

1518 DATA 6a,6B,aD,04,06 

1520 DATA 6e,6>a,8D, 05,06 

1522 DATA 6B, 6S, BD, 06, 06 

1524 DATA 69,68,90,07,06 

1526 DATA 6B, 6B, BD, 08,06 

1527 DATA A9,01,85,CE 
1529 REM 

1330 REM ,.. MAIN USR LOOP 
1332 REM 

1534 DATA 20, «>, 9F, 00, FO, OE 
1336 DATA 20, »t , 6O,O0, AD, OC, DO 
1538 DATA DO, OF,20,,*«, Ofl, 01 ,4C, ««, 3S, 00 
1540 DATA A9,OO,B5,D4,A'7,00,B5,D5,&0 
1542 DATA A9, Ol ,85, D4, A"?, 00, SS, D5, 60 
1550 REN 

1552 REM ... MOVE PLAYER SUBROUTINE 
1554 REM 

1556 DATA AD, 00,06,95, DO 
135B DATA AD, 01 , 06,B5, Dl 
1560 DATA A2,0O,AD,O0,D3,29,OF 
1562 DATA B5,CF. 29, 01. 00,05.20, »«.2D,01 



forward prograniiBiag techntquea with 
occasional unnecessary j«eca«tion; 
Saucer Launch will not win any awards 
in efficiency or compactness. The game 
with all comments, requires a 24K byte 
Atari system. The overall speed of the 
game is sufficient to make the defense of 
the Starfleet a definite challenge. 



Mike Dougherty graduated from the 
University of Tennessee in 1977 with an 
M.S. degree in Computer Science, and is 
currently working at Martin Marietta 
Aerospace in Denver, Colorado. His home- 
based system presently consists of an Atari 
800 with 24K ttytes of memory., the Atari 
410 recorder,, and the Atari 850 Interface 
Module for future conamunicatiwn with 
single board computers. 



1364 


DATA A5, CF, 29, 02, 00,03,20. *« 


16, 


01 


1565 


DATA A5,CF,29,04,D0,03,2O,** 


50, 


01 


1566 


DATA AS, CF, 29, OS, DO, 03, 20,**, 


45, 


01 


156S 


DATA BD,0B,O6,AS,A2,40 






1S70 


DATA 20,**,FB,00,tO 






1572 


REM 






1574 


REM . . . MOVE TARGET SUBROUTINE ] 


1576 


REM 






1578 


DATA 06,CE,D0,04,A9,01,B5,CE 






i5ao 


DATA AD, 02, 06, 85, DO 






15S2 


DATA AD,03.06,B5,D1,A2,01 






1584 


DATA AD,04,06,25,CE,F0,06,20 


«* 


20, 01, DO, 01, 60 


15S6 


DATA AD,05,O6,25.CE,F0,06,2C 


I* 


16, 01, BO, 01, 60 


1586 


DATA AD.06,06,25,CE,F0,06,20 


»* 


45,01,00,01,60 


1590 


DATA AD,07.06,25,CE,F0,06,20 


*», 


50, 01, DO, 01, 60 


1592 


DATA A2,01,BD.OB,06,AB,4A,4A 






1594 


DATA 29,3B,AA,20,**,Fa,00 






1S96 


DATA A9.01,6O 






1600 


REM 






1602 


REM MOVE OBJECT SUBROUTINE | 


1604 


REM 






1606 


DATA A9.0B,SD,OD.06 






i6oa 


DATA BD,OE,06,91,00.E8,Ce 






1610 


DATA CE,O0,06,D0,F4,6O 






1612 


REM 






1614 


REM DELAY SUBROUTINE 






1616 


REM 






1619 


DATA AC,08,06,A2,05.CA,DO,FO 






1620 


DATA Be, DO, Fa, 60 






1622 


REM 






16:^4 


REM ... DOWN SUBROUTINE 






1626 


REM 






t62B 


DATA BD,OB.06,Cf,BA.FO,OD 






1630 


DATA FE,0B,O6,EA,EA,AB 






1632 


DATA A9,00,91,DO,A9,01,60 






1634 


DATA A9,0O,A0 






1636 


REM 






1638 


REM ... UP SUBROUTINE 






1640 


REM 






J 642 


DATA BD,0B,06,C9.iC,F0,0E 






1644 


DATA DE,0B,06, 1B,69,07,AB 






1646 


DATA A9,00,91,00,A9.01,60 






1646 


DATA A9,00,6O 






1650 


REM 






1632 


REM ... RIGHT SUBROUTINE 


, 




1654 


REM 






1636 


DATA BD,09,06,C9,CC,F0,0E 






1658 


DATA Fe,09,06,BD,09,06 






1660 


DATA '?D,O0,D0,EA,EA,A9,01,60 






1662 


DATA A9,00.i0 






1664 


REM 






1666 


REM ... LEFT SUBROUTINE 






1668 


REM 






1670 


DATA B&.O9,06,C9,2D,F0.0E 






1672 


DATA DE,09,06.BD,09,06 






1674 


DATA 9D,00,D0,EA,EA.A9,01;60 






1676 


DATA A9.00.60 
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LDAD USR DATA BASE 



1700 DATA . 

tSOO REM 

ISOl REM , . 

1B02 REM 

IBIO A=1550:REM BASE ADDRESS OF TARIKTS 

1820 READ BYTE* 

1B30 IF BYTES-",.-' THEN RETURN 

IBIO GOSUE 1400 

1B50 POKE A,BYTE:A=A+1 

ISiO GOTO 1820 

1900 REM 

1901 REM ... TARGET PATTERNS 
1<J02 REM 
1904 DATA 00,00,00,08, IC, 00,00,00 

< 1906 DATA 00,00,00, ia,3C. 18,00,00 
190B DATA 00,00, 13,24, 3C, IB, 00, 00 
1910 DATA 00,00, 1C,2A,3E, IC,00,00 
1912 DAT« 00,Oa, 1C,2A,3E,1C,08,00 
1914 DftTA 00,1C,3E,33,7F,3E, 1C,00 
1916 DATft 00, 1C,3E,5S,7F,7F, lC,OB 
191B DATA 00,3C,7E,A5,FF,rF,7e, IB 

1920 REM 

1921 REM ... CROSS HAIR AIM 

1922 REM 

1924 DATA 00, 3B, 10,92, FE, 92, lO, 38 
1926 REM 

1928 REM ... EXPLOSION PATTERNS 
1930 REM 

1932 DATA 00,00,24,19,13,24,00,00 
1934 DATA 81 , 42, 2C, A6, 63, 3C, 42, Bl 
1936 DATA 10, 00, 44, 90, 02, 10, 02, B9 

1933 DATA 00,00,00,00,00,00,00,00 
1990 DATA .. 

2000 REM 

2001 REM ... INITAILIZE THE PLAY 

2002 REM 

2005 HITB-OiMISSES-0 

2010 GRAPHICS 81POKE 752,liREM SET HISH RES 

2015 QOSUB TOOOiRGM DRAW REST OF WORLD 

2020 POKE 539,62iREM SET PLftYFIELD flllE 

2030 POKE 704,aBiREM COLOR RE8IBTER FOR PLAYER K 
2040 POKE 703,24iREf1 COLOR REGISTER FOR PLAYER «1 
2050 SPflCE-PEEKdOAJ-BiREM SRAPHICS PAGE 

2060 POKE 54279, SPACEiREM PLAYER/MIBSLE BABE 
ADDRESS RESIBTEK 

2070 POKE 53277, 3iREM ENABLE PLAYER HIBSLE 
DIRECT MEMORY ACCEBa 

20B0 POKE 33256, OlREM SIZE OF PLAYER « O 

2090 POKE 53257, OiREM SIZE OF PLAYER # 1 

2100 8ASE-6t 2361 REM D8R DATA BASE 

2110 P0-EPACEt256+1024iREM BIT MAP FOR PLAYER #0 

2120 Pl-SPACE«256*1280iREM BIT MAP FOR PLAYER #1 

2200 CX-133iP0KE BABE+9, CXi HEM INIT AIM 

2210 CY-llOiPDKE BABEtl I , CY 

3000 REM 

i3001 REM . . . SAME LOOP 

!3002 REM 

J3010 FOR LDQP-1 TO 100 
3020 SETCOLDR 2,B,0 

13030 TX-RND(1)I60+110.POKE BABE+IO.TX 
3040 TV-RND(l)«10+170iPOKE BASE+12,TY 
3050 VP-INT(RND(1)«255+I) 
3060 YM"0 

3070 )!P-INT(RND(1)»255+1) 
30B0 XM-INT(RND<n*2S5+l) 
3100 POKE 5324B,PEEK<BABE+9> 
32O0 POKE 53249, PEEK(BASE+10} 

3400 POKE 53278, OiREM IMT COLLISION REGISTER 
4200 POKE 77,0tREM NO ATTRACT MODE 
4300 FOR WAIT-1 TO RND ( I ) *50i NEXT WAIT 
4400 SOUND 0, 10,0,BiS0UND 3, 235-LOOP, 10,2 
4430 D-200-LDaPiREM VARIABLE DELAY LOOP 
4500 )(-USRlADR(CQDE«),PO,Pl,YP,VM,XP,XM,D) 
4610 IF X-1 THEN BOSUB 5000 
4620 IF X-0 THEN BOSUB 6000 
4700 PRINT IPRINT 

4710 HITS-HITS+XiMIBSES-MISaEB+d-X) 
4720 PRINT "Target* HITi "(HITS," MISSEDl " 
IHIBSES 



4730 PRINT "PercBfitjigBi 
>tOOO)/10|-X- 

4B00 NEXT LOOP 

4900 REM 

4901 REM ... ROUND OVER 

4902 REM 



'lINT(HIT8/(HITS-«1I 



4910 
4920 
4930 
4960 
5000 
5001 
5002 
5010 
5020 
5025 
5030 
3035 
5040 
5050 
5060 
5070 

soao 

5085 

5067 

5090 

6000 

6001 

6002 

6010 

6020 

6030 

6035 

6040 

6045 

6050 

7000 

7001 

7002 

7010 

7020 

703O 

7040 

7050 

7060 

7070 

7000 

7090 

7100 

7110 

7120 

7160 

7190 

7200 

7210 

7220 

7300 

SOOO 

BOO I 

aoo2 

3010 



aois 

B020 

ao30 

3032 
9040 
3050 
9055 
a 060 
8 062 
3070 
8080 
8090 
8100 
8110 



SOUND 0,0,0,OiSOUND 1 ,0,0, OiSOUND 3,0,O,0 

POKE 53277, OiREM NORMAL DISPLAY 

IF HITS<60 THEN GDSUB 8OOO1QOTD 2000 

GOSUB 9OOO1GOTO 2000 

REM 

REM .. . HIT THE TARGET 

REM 

A"BASE+36[CLEAR=Pl+PeEK!BASE+12) 

FOR IMAQE-4 TO 1 STEP -1 

SETCDLOR 2,3,IMAGE«2 

SOUND 0,30,8, mAGE*2 

SOUND 1,60,0, IMflEE«2 

FOR L1NE=0 TO 7 

POKE CLEaR*LINE,PEEK{Al 

A=A+I 

NEXT LINE 

NEXT IMAGE 

SOUND O,O,0,0jSOUND 1,0,0,0 

SETCOLOR 2,6,0 

RETURN 

REM 

REM ... MISSED THE TARBET 

REM 

CLE AR=P I +PEEK ( BASE+ 1 2 ) 

FOR HNE=0 TO 7 

POKE CLEAR+LINE,0 

SOUND 0,200, 12,8 

NEXT LINE 

SOUND 0,0,0,0 

RETURN 

REM 

REM . . . ORAM LAUNCH BASE 

REM 

COLOR 1 

PLOT 90, 159iDRAWT0 160,100 

PLOT 230, 159IDRAWTD 160,100 

PLOT 0,146iDRAWT0 160,100 

PLOT 319, 146iDRAWTD 160,100 

PLOT 0,120jDRAWTO 160,100 

PLOT 319, 120]DRAWT0 160,100 

PLOT 0,136iDRAWTQ 319,136 

PLOT 0,121iDRAWT0 319,121 

PLOT 0,113iDRAWT0 319,113 

PLOT 0,I07iDRAWT0 319,107 

PLOT O,103!DRAWTa 319,103 

PLOT 0, lOOlDRAWTO 319,100 

PLOT 0,159iDRAWTD 319,159 

DRAWTO 319, O 

DRAWTD 0,0 

DRAWTO 0,159 

RETURN 

REM 

REM ... MISSION FAILED ■!! 

REM 

PRINT iPRINT iPRINT 

"STARFLEET SUNROUN^Sft" 

SOUND 1, 100, 10,6 

FOR BLfiST-1 TO 12 

C-INT(RND{ll*3)-*-2 

X=FiND(l)*200+50: Y=RND(1) *50+10 

FOR EXPLQDE^IO TO O STEP - (RND< 1 ) *3+l ) 

SOUND O, 10,0, EXPLODE 

SErCOLOR 2, C, EXPLODE 

PLOT X+RND(l)i|!4, Y+RND<1) «4 

PLOT X+RND(1)«4,Y+RND(11*4 

NEXT EXPLODE 

NEXT BLAST 

SOUND 0,0,0,0!SOUND 1,200,10.3 

SETCOLOR 2,0,0 

PRINT iPRINT :PRINT HITS;"'/. 



I 



— MISSION ABORTED" 
8112 FOR WAIT=1 TO I'sOiNEXT WAIT 
8114 SOUND 1,0.0,0 
8116 GRAPHICS OiPOKE 752,1 (Continued) 



i 
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MEEffHElRESIDENTS 



An educational game 
presenting the forty 
Presidents of the 
United States 



The finest computer 
graphics ever produced 
on the Apple 11. 



*Test your skills on his- 
torical facts about our 
Presidents. 



'Requires: Apple II, 
48K, Disk II, DOS 3.3 



iiM'rr • ' • '»*^ 




ji]iiiMii]i 
111 



39 original full color 

computer graphic 

portraits by re- 

knowned artist 

Saul Bernstein 



•Practice visual recog- 
nition as the portraits 
unfold before your eyes 



"Change questions to 



bilities. 



•A MUST for your game 
and graphics library-- 




•****••***••*•*•***•*•*•** 

"actual scieen pholo 



Uersa Camputing^knc. 

3541 Old Conejo Road, Suite 104 
Newbury Park, CA. 91320 (805)498-1956 



SI 20 


PRINT iPRINT "Well HOTSHOT^ 




... want to try aqsi n 7" 


8130 


PRINT [PRINT "Press triger to continue." 


8140 


IF STRIE(OK>0 THEN GOTO BJ40 


8200 


RETURN 


91500 


REM 


9001 


REfl MISSION SUCCEDED 


9O02 


REM 


9010 


PRINT iPRINT iPRINT HITSi-X 




— MISSION WELL DONE." 



9020 


FDR BLAST=1 TD 10 


7030 


FDR WftIT=RWD(ll*100+100 TO 1 STEP -lO 


9040 


SOUND 0,WAIT, 10,8 


9(:i50 


SETCOLOR 2, 13,WflIT/20 


9060 


NEXT WfilT 


9070 


NEXT BLAST 


9080 


SOUND O.O,0,O 


9090 


GRflPHICB OjPDKE 752,1 


9100 


PRINT "Pres5 trigger to continue." 


9200 


IF STRIG(0)<>0 THEN GOTO 9200 


9300 


RETURN 



Listing 2 



SAUCER LAUNCH U£iK FUNtllON 

X = USR(ABDR.KO,l-l,YP,yM,XP,XM,riELfll 

WHERE ADDR - STARTING fiDDfih ;S OF USR FUNCTIIIN 
PO - PLfiVER DISM .W MEMilRY 

PI - PLAVFR 1 niari.iV mehory 

YP - Y PtlSIIlUt hOI'i MENT 

YM - Y Himif; MOM MtNT 

XP - X POSITIVE MOl'l (MINT 

YM - Y hlWUS MOI-'i MENT 

HELA - TIME DELAY CON ilAMT 



liSR RETURNS 



- IF 

1 - le 



SfllKIER NOT MIT 
SAItDER Hri 



OOI'O 
OOCE 
OOCF 
00D4 



PLAY~»0OriO 
(MSK=ItE 

j<jY"*ooc;f 

VALUE-iOOM 



STORAGE FOR IMDIRECT POINTER TO DISPLAY MEMORY 
BII POSITlliii OF SAUCEft HWJE 
CUR'RENT J01 STICK VLAtJE 
liatR RFKIRN OROUHENI 



D300 
DOOO 
DOOC 



PORT = «D:iOO 
H0RZ=*U00O 
COLS«=JD«OC 



JOYSTICK 1 ORT 

MBE HORIZONTAL POSITION REGISTER 

PLAYER COiLISIfJM REGIHTER FOR OTHER PLAYERS 



»=tofiao 



USER VARIAPl E / DATA BASE STORAGE 



BASE 



0600 00 00 
0a02 00 00 

0^1 0-1 oo 

04 OS 00 

o;>o6 00 

0607 00 
060B 00 
0609 00 00 
06OS 00 00 
0601' 00 

060E 



PO 


. UORli 





r-1 


.UORH 





YPLUS 


.BY IE 





YMIrtUS 


-BYTE 





Xl'LlIEi 


■ DrrE 





XMIMUS 


.BYTE 


e 


DELA 


.BYTE 





POSX 


.PYTE 


OrO 


POSY 


.PYFE 


0,0 


COUNT 


• BY IE 
TARB-* 






PLAYER HI ;PLAY MEMORY 
PLAYER I D!.;PLAY MEHOKY 
SAUCER MOUEilEMl BII PAT1ERN3 



DELAY TO SLIiU ElOUM GAME 
CURRENT POSiriHN OF CROSSHAIRS 
CURRENT POSITION OF SAUCER 
TEMPORARY 

SAUCER. CUnSi' HAIR-EXPLOSION PATTERNS 
bEE BASIC FI^OGRAM FOR ACTUAL PATTERNS 



flSSEMPLE COUE AT »1000 POR ASSEMBLER'S CONVIENCE. LATER MMIFY 
ALL APEiRtSStS REOUIRING RELOCATION TO OFFSETS TO »0000 ~ SIMPLY 
SUBTRACT *1000 FROH THOSE AIiIJRESSES 



1000 iS 

1001 FO OA 
1003 C9 07 
1005 FO 07 

1007 AA 

1008 i>8 

1009 6Q 
iOOA CA 
lOOB 00 FB 
lOOC 60 

lOOE 68 

lOOF 811 01 06 

1012 68 

1013 Oil 00 06 
1016 68 





*=»1000 




USR 


PLA 






BEO 


UAWIRT 




cm 


#»07 




BEQ 


FARMQK 




TAX 




PLALP 


PLA 
PtA 

sex 






BNE 


PLALP 


UABOR r 


RTS 




PARMOK 


PLA 






STA 


PO+1 




PLA 






STA 


FO 




PI A 





NUMBER OF AIGUHENIS 

ZERO IS WRONG NUMBER 

EXPECT 7 ARIIUMENTS IN USR CALL 

OK 

POO llSfV CALL — CLEAN UP STACK 
EACH ARtaWEIT IS 3 BYTES LDN6 



APORT USR C.LL. NO ACTION 

mvE ARUunEi.rs into pata ease 

{HIGH ORDER IS FIRST) 

THE FIRST Al ilUMENT IS THE FIRST TO 
BE PULLED FIOM THE STACK.. 
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lOUE 


27 


08 




lovo 


liU 


03 




1<I?2 


20 


45 


It 


10X7 


Sir 


03 


06 


lom 


6(1 






lOlfi 


tin 


02 


06 


lOlE 


6B 






lOlf 


6B 






1020 


8D 


04 


06 


1023 


68 






1021 


63 






1025 


811 


OS 


06 


102a 


6EI 






1029 


63 






102fl 


8I> 


06 


06 


102D 


6a 






102E 


6a 






102F 


8D 


07 


06 


1032 


68 






1033 


6a 






1034 


8D 


oa 


06 


1037 


ft9 


01 




1039 


85 


CE 





AHD 


iioa 


■B«E 


*^s 


JSR 


BIGHT 


STfl 


Pltl 


PLfl 




STA 


PI 


f-l-fl 




PLA 




STA 


YtLUS 


PLA 




PLA 




STA 


YHIWUS 


PLA 




PU 




iSTA 


XPLUS 


PU 




PLA 




STA 


XMINlia 


PU 




PL.A 




STA 


PEL ft 


LOA 


IfOl 


STA 


MASK 



RIGHT BIT f 

yes, nuuE riiiht 



USE ONLY LOU BYTE OF DIRECTION PflTTERHS 



DELAY IS BETUEEN 0...255 



INITIALIZE 6lf POSITON fOR SftUCER 
MGUEMENT MAS! 



MAIN USR LOOK 



CtlHTRDL MOUtI.ENT OF SAUCER ANIi CROSSHAIRS 



10311 


20 


9F 


10 


LOOP 


JSR 


MOUTRG 


joaL 


FO 


OE 






8EQ 


MIStlED 


1O40 


20 


60 


10 




JSR 


MOUPLA 


1043 


AD 


OC 


BO 




LDA 


COLaN 


1046 


no 


OF 






BME 


HIT 


104a 


20 


OA 


11 




JSR 


DELAY 


104B 


4C 


38 


10 




JHP 


LOOf 


104E 


AV 


00 




mssEb 


LDA 


*too 


1050 


85 


D-1 






STA 


VALUE 


1052 


A? 


00 






LDA 


«iOO 


1054 


85 


D5 






STA 


UALUE+1 


1056 


60 








RTS 




10S7 


A9 


01 




HIT 


LDA 


*«01 


1059 


85 


114 






STA 


VALUE 


1056 


A? 


00 






LOA 


ttoo 


lOLil' 


8ti 


1-5 






STA 


VALUE-ll 


I05f 


60 






t 

i 


RTS 

MQUE 
JOYS 


THE PLAYER 
IICK PORT. 










) 


SAUOCR MOVE ROIP 


1060 


AH 


00 


06 


MOyPLA 


LDA 


PO 


1063 


05 


DO 






STA 


PLAY 


1065 


AEi 


01 


06 




LOA 


PO+1 


1068 


B5 


Dl 






STA 


PLAYH 


106A 


A2 


00 






LDX 


*iOO 


106C 


All 


00 


I' 3 




LDA 


PORT 


106F 


29 


OF 






ma 


**0F 


1071 


85 


CF 






STA 


JOY 


1073 


29 


01 






AHS 


4»0t 


1075 


DO 


03 






BNE 


*I5 


1077 


20 


21' 


11 




JSte 


UP 


107A 


fl5 


CF 






LDA 


JOY 


107C 


29 


02 






AND 


«S02 


107E 


DO 


03 






■BNE 


«I5 


1080 


20 


16 


11 




.^K 


IIUUN 


1083 


AS 


CF 






LDA 


JOY 


1085 


29 


04 






AND 


**04 


1007 


DO 


03 






BNE 


*Vh 


1089 


20 


5D 


11 




JSR 


LEFT 



MOVE SAUCER lARGET 

HIT LIMIT GF SCREEN ~ MISSED 

MOVE PLAYER ( KOSSHAIRS 

CHECK FOR CGI I.ISION UITH ANOTHER PLAYER 

HIT SOMEONE SAUCER 

NOTHING. t;iAI I A BIT 

REPtAl UNTIL .iUMElHJNG HAPPENS 



SAUCER HADE IF OFF THE SCREEN BEFORE 
A HIT -- RETI);;N A ZERO 



GOl THE SAUCii; — RETUfr;N A ONE 



SHARE UF/DObJN/RIGHT LEFT ROUTINES UITH 



IWiriALIZE I OrNTER TO DISPLAY MEMORY 



PLAYER O INrilJX 

GET JOVSncI VALUE DIRECTLY 

CLfAN TO GNI Y STICMO) 

SAVE FOR LAIKR 

CHECK UP Bl I ■( 

NO STICK COIITACT ~ SKIP UP 

VESr MOVE Ut 

USE SAME VAUIE OF JOYSTICK 

DOUN BIT ? 

NO — SKIP HiJUN 

YES. MOVE DUUN 



LEFT BIT T 

HO 

YES. MOVE LI ,T 



lOBC A5 CF 



LDA 



JOY 
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1095 eil OB 06 

109B as 

1099 Pi2 10 
109P 20 FB 10 
109E 60 



LIiA 


POSY F X 


TfiV 




LUX 


4A4 


JSR 


MOVOIU 


RTE 





109F 04 CE 

lOAl DO 04 

10A3 A9 01 

10A5 65 CE 

10A7 AD 02 06 

lOrtA 05 no 

lOftC f\D 03 06 
lOfiF B5 lU 
lOBl A2 01 

10G3 AD 04 06 
10E6 25 CE 
t0&3 FO 06 
lObA 20 2D 11 
iOKIr DO 01 
lOFF 60 

lOLO fiD 05 06 
10C3 25 CE 

IOCS ro 06 

10L7 20 16 11 
lOCA DO 01 
lOCC 60 

lilCQ Ml Oi 06 
lOLIO 25 LL 

10D2 FO 71 

lOD'l 20 45 11 

10D7 DO 01 

10D9 60 



lODA All 07 06 
lODD 25 CE 
lODF FO 06 
lOei 20 SB 11 
10E4 DO 01 
10E6 60 

10E7 fl2 01 
10E9 I'D OE 06 
lOEC AB 
lOED 411 
lOEE tn 
tOEF 29 38 
lOFl A A 
101-"2 20 F8 10 
10F& A9 01 
10F7 60 



1 


HOME 


THE SAUCE 


f 


ypLU6 


> YhiNUSr 


t 


DRAU 


IN NEW PO 


MOVIRG 


ASL 


MASK 




BME 


Ell EDH 




LIiA 


*it01 




!JTA 


MASK 


BITUH 


LEI A 


PI 




SIfl 


PLAY 




LDA 


Pl + 1 




STfl 


PLAY+l 




LDX 


«toi 




LDA 


Yl LUS 




AND 


MASK 




HkU 


NllYP 




.liif; 


UP 




lfH£ 


*43 




RTa 




MOYP 


LDA 


YMINUa 




AND 


MASK 




DEC) 


MllYM 




JSR 


LtllllN 




BNE 


*ri 




RTS 




NOYfl 


LDA 


XPLUS 




OND 


nA!;K 




li£C( 


RIGHf 




JtiR 


RiGirr 




&NE 


*13 




RIS 




Noxr 


LErA 


XMINUS 




AND 


MASK 




B(;a 


NIJXM 




Ji!R 


LtFE 




BNE 


»+3 




RIS 




NOXM 


LDX 


4»01 




LDA 


POSY I X 




TAY 






LSR 


A 




LSR 


A 




AND 


4«jS(J 




TAX 






.JSR 


MDV06J 




LDA 


**01 




RTS 





GET CURREN: Y POSITION ON SCREEN 

OFFSET INEII TARO FOB CfiOSSHAlRS PATTERN 

MOyE NEW PftTTERN ONTO (POSSIBLYl NEW POSITION 



; TARGET ACCORDING Til THE FOUR BIT PATTERNS 
XFLUSr XMINUS. CHOIlSE SAUCER PATTtRN TO 
ilTION BASED UPON y I UBITIOH ON SCREEN. 



MOVE TO NEXI I'lT POSITION 
BIT STILL IN MASK 
UHOOPS. SHIFTED BIT OUT 
RE-INITIALI:^E BIT MASK 

INITIALIZE POINTEK TO IHSPLAY MEMORY 



PLAYEt; 1 It HEX 

YPLUS DIREI HON 

TEST UF' BII ? 

NO 

YES. MOVE lip 

DID NOT HIp (CIP 

HIT TOP =. IHROUGH 

DOUN y 

NO 
YES 

HIT BUEEOM 

RIGHT ? 



NO 
YES 



HIT RIGHT LliiIT 



LEFT T 

NB 

YES 

H11 LEFT LIMIT 

IMliEX TD PLfiiER 1 

OCT CURRENT j POSITION 

IMEiEX TO MOV! PATTERN 

Y POSITION / 4 -- 0<-Y<=63 

CLEAN UP TO MULTIPLES OF 

USE AS INDEX INTO 8 SAUCER TARGET PATTERNS 

MOVE 8 BUES OF NtU TARGET SHAF'E 

NO HIT 



I 



MOVE B BYTES FROM TARO.X 10 <PLAY).l -- THIS WILL REDRAW PAT EERN 
AT A <POSSIBLY) NEW POSITION ON THE .GREEN 



lOFB A9 OB 
lOFA tin OD 06 
lOFD BD OE 06 
1100 91 DO 

1102 EB 

1103 Cfl 

1104 CE OD 06 
1107 DO F4 
1109 60 



MOVBtiJ 
MVPLAL 



LDA 
STA 
LIIA 
STA 
INX 
INY 
DEC 
DNE 
RTS 



♦ iOO 
COUNT 

TARGrX 

<PL AY) .Y 



COUNT 
MVl'LAL 



MOVE B BYTES ~ USE TEMPORARY STORAOE 

GET TARGET P.,TieRN BYTE 

PUT INTO FftOi ER DISPLAY MEMORY 

NEXT PAIR 1)T BYTES 

ALL a ? 
NO 



IIOA AC 08 06 



) BY THE 7TH ARGUMENT IN THE USER CALl (ONE BYTE VALUE). 

DELAY LPY ItELA GET BASIC UILAY 0...255 (1 IS FASTEST) 
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noil fi,2 05 
llOF CA 

tiio no fv 

1112 BS 

1113 IiU FB 
1115 60 



DLOOPI LbX 
DLaOI'2 UEX 

DEV 

RTS 



*f05 

[<La0f2 

ULUOPl 



ARUIiRARy t(M)STfiNl TfJ HfiKE A BftSIC DE.LAr 
UF 200 SLGU- 100 FAST 



tiET F'ARAHEIERS FOR DDUN HOyEMENT (Hi IN DISPLAY MEHORY) 

NOTE! THE MflvaBJ ROUTINE ACTUALI Y KEHRAUS THE PATTERN AT THE 

HEU POSITIUN, THUS ONLY 1 l.l-Tt NEEDS TD BE ZEROED BY 
THE DOUN/UF' ROUTINES. 



1116 bli Of 06 
111? CV EA 
nib FO OD 

mil FE OB 06 

1120 EA 

1121 EA 

1122 Aa 

1123 «<? 00 
1125 Vl DO 
1127 A9 01 
1129 60 

112A AV 00 
lll'i: 60 



DOUN 


LDA 


POSY I X 




c:mp 


tIB6 




BED 


NDDOUN 




INC 


PliSY.X 




NOP 






NOP 






TAY 






LDA 


itoo 




EiTA 


(pi ATt.Y 




LDA 


tloi 




KIS 




Nnnouw 


IIM 

ftrs 


#'100 



UET CURRENT POSITION 
AT SCREEW LItllT ft? 
YES, IGNORE HOVEMEMT 

NOt MARK NEU POSITION 

SYNCHRONIZE .Ul hOUEMLMT SUBROUTINES TO 

TAKfc SAME NIMBER OF hACHINE CYCLES ITIHEJ 

ZERO OLD TOI — UILL NOT BE OyERURITTEN 
UIFH NEU PAi .ERN 

siiccessfUL II jyE 



NO ACTUAL MdJE ( IGNOftE TIME SYNC) 



SET PARAMETERS FOF.' UP HOVE ( DOUfI IN iISPLAY MEHORY) 



112D Kb OD 06 



UP 



1130 


C9 


IC 


1132 


FO 


OE 


1134 


DE 


OB 06 


1137 


18 




I13t! 


69 


07 


1 1 :iA 


A8 




naB 


A9 


00 


11 3D 


91 


iK) 


ii:if 


A9 


OL 


1141 


60 




1142 


A9 


00 


1144 


60 





MOUP 

i 

t 
I 



GET CURRENT ( POSITION 

AT SCREEN LIMIT ??? 
YES, IGNORE MOVE 

MO. MARK NEl' POSITION 

POINT TO BOirOM OF OLD PrtFTFRN 



lEKU IT 

succt:ssFUL i.-jyE 
NO Muye 

SET PARAMETERS FOR RIGHT MOVE. 

NOTE! RIGHT/LEFT MDVEMENI IS DONE 'lY THE HARDfJARE SET IN THESE 
TWO ROUTINES. 



LDA 


po:;y-x 


CHP 


t2S 


liEO 


NDIIP 


DEC 


f-OSY . X 


CLC 




ADC 


#i07 


TAY 




LDA 


«too 


STA 


( PI AY ) T Y 


LDA 


♦a. 01 


RTS 




LDA 


#1.00 


RTS 





h 



1145 


£■11 


09 


06 


1140 


C9 


CC 




114B 


FO 


OE 




111C 


FE 


09 


06 


114F 


BD 


09 


06 


1152 


9D 


00 


DO 


11 as 


EA 






1156 


EA 






1157 


A9 


01 




11&7 


60 






115A 


A9 


00 




115C 


60 







ii;:d bd 09 oi 

1160 C9 2D 
1162 FO OE 

1164 &E 09 06 

1167 BD 09 06 

116A 9D 00 DO 

11611 EA 

116E EA 

116F A9 01 

1171 60 

1172 A9 00 
1174 60 



RIGHT 


1 DA 


POSX>X 




CMP 


♦ 204 




Btfl 


NORGT 




INC 


POSXrX 




LDA 


PQSXtX 




STA 


IIURZpX 




NOP 






NOP 






LDA 


fHH 




RTS 




NOr.GT 


LDA 
RIS 


4«O0 


t 


SET PARAMETERS 


LEFT 


LDA 


POEX.X 




CMP 


*45 




sen 


NOLFI 




6EC 


POSX . X 




LDA 


POSXtX 




STA 


HORZ.X 




NOP 






HOP 






LBA 


««0l 




RTS 




NOLFT 


LDA 
RTS 


• too 



(it"T CURRENT < POSITION 
AT SCREEN LhllT ?T? 
YES- NO MOW 

NO. UPtiATE i.l NEU POSITION 

USE NEU PC'!;i I lllN 

DlRtCTLV SEI HORIZONTAL REGISTER 

TIME SYNCHRI IIZATION UITH SLOUEliT CASE lUP) 

SUCCESSFUL hIVE 
NO MWE 



GET CURRENT 



POSITION 



AT SCREEN L IMIP ??? 
YES. NO MOUr 

NO. UPDATE 10 NEU POSITION 

USE NEU POblTION 

SET HORIZON I AL REGISTER 



SUCCESSFUL .,0V£ 



NO MOVE 



AICAO 
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Software for the Apple II and Apple II Plus** 



BEITEATH APPLE DOS 

A Technical Manual 
By Don Worth and Pieler Lectinw 
Become an expert on the intricacies ol Apple's DOS IDishOperatinfiSysteml BENERIH 
APPIE DOS IS Ihe peitect companion lo Apple's DOS 3.3 Manual. Conlaininfi eight 
chapters, three appendices, a glossary, an indei. and oirer 160 pages, this ii^aniial will 
seive to completely fill in the many gaps telt by Apple's DOS 3 3 Manual Wiilten tor 
Apple users with DOS 3 3. 3.2 or eatliet versions, any Apple bisk user would welcome 
having this catelully wntten manual at his hngertips. 
LEARN . . . 

• Ho* DOS 3 3 differs tram other DOS versions. 

• How disks are protected. 

• How to reconstiuct a damaged diskette CATALOG 

• How tracks are farmatled. 

• How to use Ihe disk directly, without DOS. 

• How to call DOS's lile manager 

• How every routine in DOS works. 

• How lo customize DOS to your needs. 

• How to overcome DISK I/O ERRORS 

• About the "secret " file lypes — S and H. 

INCLUDES. . 

• Large quantities ol ejcelleni diagrams and tables. 

• Source lishngs ol osetul disk utilities. 

• Glossary of over 150 technical lerms. 

• Exhaustive description ot DOS program logic 

• Handy reference card 

• Useful patches to DOS. 

• Many programming eiamt^es. 

Book - 119.95 



CROSS-REF by Jim Aalto 

Applesoft programmers will be delighted lo haue this cross reference utility program in 

Iheir tool kit of software aids What can CROSS REF do to speed and facilitate your 

Applesoft program development? Consider Ihese lunctions; 
VARIABLE CROSS REFERENCE LINE CROSS REFERENCE 

FIND VARIABLE FIND LINE NUMBER 

REPLACE VARIABLE VARIABLE ONLY LISTING 

LINE ONLV LISTING 

Features that make CROSS-REF easy lo use include, 

• Written in machine language, occupies less than 3K. 

• Resides passively in memory while DOS or Applesoft is active 

• Can be loaded with your Applesoft program already resident. 

. Very last — a VARIABLE CROSS REFERENCE for a !6K ApplesoH program can start 

Srinting in 5 seconds 
ontains printer format controls and headers for documentation. 

• Prints English language error messages. 

Cassette - S2Z.95 Diskette - tZ4.95 



E 



LINKER by Don Worth. 

Turn your Apple II or Apple tl Plus into a powerful and productive 
software development machine with this supeit) linking loader/editor 
pacliage. LINKER does the following and much more; 

• Dynamically loads and relocates suitably prepared machine 
language programs anywhere in RAM. 

• Combines a main prt»ram ntth subroutines You can assemble a 
subroutine once and tnen use it with asraany main programs as you 

• Produces a mapof all loaded routines, pvingltidr location and the 
total length of the resultng module. 

• Contains a libraryofsubroutinesincluitingbinary multiplication and 
division, print text strings, delay, tone generator, and random 
number generator 

Linker works with virtually any assembler for the Aople II. Reauires 32K 
of RAM and one disk drive. 

Dttliittt - 1*9.95 
HinuilOnly-S19.95 




Cisiatte 



FASTGAMMON" By Sob Chrisbansen. 
Sound, hi res, color, and musical cartoons have 
helped make this the most popular backgammon 
playing game tor the Apple II. But don't let these 
entertaining features fool you — FASTGAMMON 
plays serious backgammon. Runs on any Ap^He II 
with at least 24K of RAM. 
$19.99 Diskette tZ4.95 



QUTiLrry soFrwTiRe 

6660ResedaBlvd.. Suite 105. Reseda. CA 91335 

(213)344-6599 

Now eiclusive distributors for products from The Sotb*are Factory. Newhall, Calitornia 
■Apple II and Apple It Plu; are Irademiilis al Apple Computer. Inc 




METEOROIDS IN SPACE" 

By Bruce Wallace 

We have taken our popular space 
game, formerly called Asteroids in 
Space, and made some important im- 
provements To accent these improve- 
ments wa have given it a new name — 
MHEOHOIDS IN SPACE. Your space 
ship travels through a shower ol 
deadly meteoroids. If your ship is hit, it 
will bedestroyed,soyou use your laser 
gun to blast the meteoroids. Big 
raeteoroids shatter into smaller 
meteoroids when hit. and the smaller 
ones are usually laster and |ust as 
deadly. From time to lime you will en- 
counter an alien space ship whose 
mission is to destroy you, so you'd 
better destroy it lirst. All the action is 
displayed in lasl, smooth, high resolu 
tion graphics, accompanied by sound effects. You now can control your shipusingone 
of Iwo options — the Apple game paddles or the keyboard One of the game paddle 
buttons controls the laser fire. In METEOROIDS IN SPACE, the spaceship's velocity 
gradually decreases unless more thrust is applied, adding an element of control. Also 
new to this version is a hyperspace feature — translate instantly to another spot in the 
galaxy. Ihe game is over when five ol your ships have been destroyed. An additional 
ship is added lor every 10,000 points you score. Runs on any Apple II with at least 32K 
of RAM and one disk drive 

Diskette - 119.95 




ASTROAPPLE" by Bob Male. 
Your Apple computer becomes your astrologer, 
generating horoscopes and forecasts based on the 
computed positions of the heavenly bodies. This 
program offers a delightful and stimulating way to 
entertain friends. ASTRDAPPLE produces natal 
horoscopes (birth charts] for each person based 
on his or her birth data. Any two people may be 
compared for physical, emotional, and intellectual 
compatibility. The program is written in Applesoft 
BASIC with machine language subroubnes. It 
requires either HAM or ROM Applesoft and at least 
32K of memory. 

Cissetta - S14.9S Diskmc tl9.9S 





FRACAS™ by Stuart Smith 

A fantastic adventure game like no olherl Up to eight 
players can participate in FRACAS at the same time, 
lourney in Ihe land of FAROPH, searching for hidden 
treasure while warding off all sorts of untiiendly and 
dangerous creatures. You and your friends can compete 
with each other or you can |om lorces and gang up on the 
monsters. Your location is presented graphically and sound 
effects enliven the battles. Save your adventure on diskette 
or cassette and continue it at some other time Both integer 
BASIC and Applesoft versions included. Requires at least 
32K of RAM. 

Cistette - S19.95 Diikettt - 124.95 



BATTLESHIP COMMANDEH" by Erik Kilk and Matthew Jew, 



A game of s&ategy. You and the computer eacli start out by positioning five ships of 
different sizes on a ten by ten grid. Then the shooting starts. Place your volleys skilllully 
— a combination of kjgic and luck are required to beat the computer. Cartoons show 
the ships sinking and announce the winner. Sound effects and flashing lights also add 
to the enioyment of the game Both Applesoft and integer BASIC versions are incluited. 
Requires at least 32K of RAM 

Cissitta - tl4.95 Oistattt - S19.9S 



Alio by Don Worth . . . 

BENEATH APPLE MANOR - Adventure. Uses Integer BASIC. 
Cassette - JM,95 Diskette - 119.95 

BABBLE - Fun with words, sound, and graphics 

CasseUe - 119.95 Diskette - 124.95 



WHIRE TO Sn IT: Call us at (213] 344-6599 for the name of the QuaMy Softwaie 
dealer nearest you. If necessary you may order directly from us. Mastercard and 
Visa cardholders may place orders by telephone Or mail your check or bankcaW 
number to Quality Software, 6660 Reseda Blvd., Suite i05, Reseda. CA91J35. 
California fesidenls add 6% sales tai SHIPPING CHARGES; Within North America 
orders must include $1.50 tor first class shipping and tiandlingOulside Nwlh 
America the charge lor airmail snipping and Mndhng is J5.00, Pay m U.S. 
currency. 
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Othello 



Thts program simulates the 
popular board game Othello. 
Designed for two players, the 
program maintains the Othello 
board on the Apple Lo-Res 
graphics screen. Written in 
Applesoft BASIC, Othello should 
be easily modifiable to other 
dialects of BASIC. 



Charles F. Taylor, Jr. 
587F Sampson Lane 
Monterey, Gal Horn ia 93940 



Most computer game programs are 
designed to be played by one person. 
The computer plays the role of oppo- 
nent, scorekeeper, referee, and manager 
of the display. This results in a "man- 
against-niachine" scenario. The objec- 
tive is to "heat the computer" and 
thereby establish your intellectual 
superiority over silicon circuitry, (Never 
taind that you are really playing against 
an algorithm designed by another person,) 

This game program, Othello, is de- 
signed to be played by two persons. The 
computer no longer is the opponent, but 
plays the role of slave, keeping track of 
the board position, checking for illegal 
moves, keeping score, and managing the 
display. 

Background 

I wrote this program for my ten-year- 
old son. Othello is a good game for inter- 
action across the generation gap because 
it is more than challenging enough for 
me, but not too difficult for my son. He 
beats me more often than I care to admit! 

Perhaps the best way to describe the 
game of Othello is to describe how it is 
played as a board game, without the aid 
of the computer. The playing board is 8 
squares by 8 squares, much like a 
checker or chess board, except that all 
squares are usually the same color. The 
playing pieces are disks, black on one 



side and white on the other. Each player 
starts with 32 pieces; one player is 
designated "white" and the other 
"black," 



The game begins with two pieces of 
each color in the center of the board in 
the configuration shown in figure 1. 
White has the first turn. He must place a 
white piece (a piece with the white side 
upl in such a manner as to "capture" a 
black piece, A piece is captured when it 
is "surrounded" by pieces of the op- 
posite color, either horizontally, ver- 
tically, or diagonally. Captured pieces 
are turned over and become the color of 
the captor. More than one piece can be 
captured at a time. 

Figure 2 Ulustrates the capture of 
two black pieces by a white piece, A 
move is not legal unless it accomplishes 
one or more captures. The game is won 
by either capturing all of your opponent's 
pieces, or by having more pieces than 
your opponent at the end of the game. 



Implemetitation 

The program was written in Apple- 
soft BASIC on an Apple II Plus, Low- 
resolution graphics are used to display 
the game board, thus pieces are shown 
as square rather than roimd. The selec- 
tion of colors is easily changed to suit 
your own display (see lines 280 - 300). I 
am ciurently using a "green screen" 
monitor and find it hard to judge colors 
as they might appear on another display. 

The program is shown in listing 1. 
The coding is straightforward, but 
perhaps a few comments are in order. 
The board is represented internally by 
the array "BOARD," The function "FN 
M2(Q]" finds the modulus base 2 of a 
number |the remainder after integer 
division by 2) and is used to compute 
whose turn it is. The legality of each 
move is checked. The subroutine at 
1430 searches for and executes all possi- 
ble captm-es, beeping for each capture. 
The score is displayed after each move. 



Figure 1: Initial Board Configuration 
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Figure 2: White Captures Two Black Pieces 
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Play 

To move, a player types the row and 
column where he wants to place his 
piece. Columns are labeled A-H, left to 
right; rows are labeled 1-8, bottom to 
top. The lower left comer is then AI, the 
lower right comer HI, and so on. Should 
you ever find yourself in a position such 
that no legal moves are possible, type 
"P" for "Pass." Play tends to ebb and 
flow like the tides, but without any 
predictability. A player can be comfort- 
ably ahead at one moment and hope- 
lessly behind the next. Ah, the changes 
of fortune! Closer analysis will reveal, 
however, that skill plays a much more 
significant role in the play than does 
fortune. 



Charles Taylor is on the faculty at the 
Naval Postgraduate School in Monterey, 
California, where he teaches courses in 
Operations Research and Computer Science. 

(Continued on next page) 



No.42-Novemberl9ei 



MICRO - The 6502/6809 Journal 



63 



Listing 




750 INPUT "WOULD YOU LIKE TO PLAY AGAIN? 


100 REM * THE GPME DK UTHELLO 




" ! at 


110 REM * BY L:. F. TPYLUR, JR. 




768 IF LEFT* (A», 1) = "Y" THEN 350 


120 REM * FOR NrtT THYLOR 




770 END 


130 REM * 




7S0 REM SUBR TO DRAW OTHELLO BOARD 


lAa REM 




730 GR 


150 REM INITIfiLIZE 




8130 COLOR= BC 


160 DIM BOftRDO, 3) 




810 FDR I = TO 39 


170 DIM CC<:2): REM HOLDS CURRENT CDLIJR 




820 HLIN 1,39 AT I 


1E0 DIM PR0MPTt(2) 




830 NEXT I 


130 DIM SC(:2) 




840 COLOR= TC: REM TITLE COLOR 


200 DIM DXi:E): DIM DYilB) 




850 REM PLOT "OTHELLD" 


210 DEF FN M2(:Q) = Q - INT IQ / 2) * 2 




860 REM FIRST "0" 


220 PRDMPTta) = "INPUT WHITE MGV£:" 




^^ %tf Vf 1 T«^ ■ ■ t ^ m ^^rf h^ 

S70 VLIN 1.5 AT 7 


230 PR0MPT$t2) = "INPUT SLPCK MOVE:" 




880 PLOT 8. 1 


240 BLOCK = 




890 PLOT E. 5 


250 WHITE = J5 




9B0 VLIN' 1. S fiT 3 


2E0 CCCl) = WHITE 




910 REM NEXT "T" 


270 CCC2) = BLfiCK 




920 HLIM 11. 13 AT I 


2S0 BC = 12: REM BflCKGRQUND (JDuOR 




930 VLIN 2, 5 AT 12 
940 REM NEXT "H" 


290 TC = 13: REM TITLE CDlUR 




300 DC = d: REM BORDER COLOR 




950 VLIN 1. 5 AT 15 


310 DRTfl a, 1, 1, 1,0, -1. -1,-1 




960 PLOT 16. 3 


320 DPiTfl 1, 1.0, -1, -1,-1, W. 1 




970 VLIN 1. 5 AT 17 


330 FOR I = 1 TO E: READ DXCI): NEXT 1 




980 REM NEXT "E" 


340 FOR I = 1 TO B: HERD DYtn: NEXT I 




990 VLIN t- 5 AT 19 


350 FDR I = a TO 9 




1000 HLIN 20,21 AT 1 


360 FOR J = TO 9 




1010 PLOT 20,3 


370 BDflRDi:i, J> = 




1020 HLIN 20.21 AT 5 


3E0 NEXT J, I 




1030 REM NEXT TWO "L"S 


390 GQSUB 7Sa 




1040 VLIN 1,5 AT 23 


400 COLOR= WHITE 




1050 HLIN 24,25 AT 5 


ftia X = 5!Y = 5 




1060 VLIN 1,5 ftT 27 


420 BOflRDCX, YJ = 1 




1070 HLIW 28,29 AT 5 


430 GQSUB 12E0: REM CPlL BLOT 




10E0 REM FINALLY ANOTHER "0" 


440 X = 4:Y = a. 




1030 VLIN 1,5 fiT 31 


450 BOflRDCX- Y) = 1 




1100 PLOT 32, 1 


460 GOSUB 1260: REM CRLL BLOT 




1110 PLOT 32,3 


470 SCfl) =2 




1120 VLIN 1.5 PT 33 


480 COLDR= BLfiCK 




1150 REM NOW DO BOARD ITSELF 


490 X = 4;Y = 5 




1140 COLOR= DC: KEM BORDER COLOR 


500 BOfiRDCX. Y) = 2 




1150 FOR I = 7 TO 33 STEP 4 


510 GDSUB 1260: REM CRlL BLOT 




1160 HLIN 4,36 AT 1 


520 X = 5:Y = 4 




1170 NEXT I 


530 BOOROa, Y) = 2 




I1E0 FOR 1 = 4 TO 36 STEP 4 


540 GOSUB 1260: REM CALL BLOT 




1190 VLIN S.3S AT I 


550 SCC2) = 2 




1200 NEXT I 


560 TURN = 2 




1210 RETURN 


570 REM BEGIN MfilN LOOP 




1220 REM SUBR MAP FINDS SCREEN COORDS 


5B0 FOR D = 1 TO 100 






590 TURN = FN M2(TURN:) + 1 




aS.YS) GIVEN BOARD COORDS CX.Y) 
1230 XS = 1 + 4 * X 


600 COLOR= cc<:turn) 




610 PRINT "SCORE IS: WHITE "SSCtDT" 




124t!) YS = 40 - a *^ V 


BLACK ";Si:(2) 




1250 RETURN 


620 PRINT PRQMPTttTURN) 




1260 HEM SUBR BLOT FILLH IN H SQUARt 


630 GOSUB 1330: REM CALL GETMOVE 






640 IF PASS THEN 700 




WITH "I'HE CURRENT CUlUR 


550 IF BOflRD(X.Y) < ) THEN 620 




1270 GQSUB 12215 


660 GOSUB 1430: REM CALL MOVES 




1280 X2 = XS + 2 


670 IF FLAG = THEN 620 




1290 H'_IN XS, X2 AT YS 


6S0 IF CCSCCl) + 5Ci:2n = 64) THEN 710 




1300 HLIN XS. X2 AT YS * I 


690 IF (CSC(l) = 0J OR (SCt:2) = 13)) 




131ia HlIN XS. X2 at YS + 2 


THEN 710 




1320 RETURN 


700 NEXT 




1330 REM BUBR GETMOVE 


710 IF SCCl) > SCf.2) THEN PRINT 




1340 INPUT MOVES 


"WHITE WINS! ": GOTO 740 




1350 PASS = 


720 IF BCfl) < 60(2) THEN PRINT 




1360 IF Lt-IhTS iMOVtS, ).) = "P" THEN 


"BLHCK WINS!"-- GOTO 740 




PASS = li RETURN 


730 PRINT "IT'S A TIE! ! " 




1370 IF LEN tMOVES) < ) 2 THEN 134l3 


740 PRINT "FINAL SCORE: WHITE "SSCCD!" 




1-33 X = rtSC ( LEFT* i MQVtS, 1 } ) - 64 


BL«CK ";SC(2) 




1390 IF X < 1 OR X > a THEN 1340 



k 



^ 
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COLOR ilF UPPGNi-INT 



U00 Y = flSC i: RIGHT* CMUVet, 1)J 

1410 IF Y { 1 OR Y > S THEN 1340 

1420 RETURN 

1430 REM FIND HUD tXECU fE MOVES 

1440 FLOG = 

1450 DP - 3 - TURW: Rtn 

1460 FOR I = 1 T(D B 

1470 NR = 

1480 XN = X:YN = Y 

1490 XN = XM + DXCnsYN = S'N + DVdJ 

15130 IF HOfiRDCXW. VN> = OF TH£N NR = 

MR + i: iJGTO 1430 
1510 IF (.EOfiRlJCXN. VW) = M> OR ( NR = t1) 

1520 REH IF WE OET HERE, 
CHPTURE IS PDSrilBLE 
1530 FLHG = 1 
1540 (:GL0R= CCiTURN) 

1550 IF BOrtRD:.X,Y) < ) M THEN 1590 
15B0 GOSUB 12E0: REf! LRlL BLOT 
1570 BOrtRDlX.V) = 1URr\i 
15S0 SC(TIJRN) = SCfTUKiM) + 1 
1530 FOR J = 1 TO NR 

1E00 XN = XN - nXCDiYN = YN - !)YtI3 
1610 BOflRDi:XN. YN) = TURM 
1E20 XTEMP = X:YTEMP = Y 
1E30 X = XN:V = YN 
1640 GOSUB 12b0: REM CfiuL. BLDT 
1650 X = XTEMPiY = YTEMP 
16E0 PRINT CHRS (7) 
1B70 HCITURNj = HCCTUHNl + 1 
16S0 BCCOP) = SCCGP) - i 
1650 NEXT J 
1700 REM 
1710 NEXT 1 
1720 RETURN 



ABBS4.0 

It was wofth the waitl 

The original Apple Bulletin Board 
Systemis now the ultimate 
personal message system. 

Compatible with many large 
disk systems and Diskll. 

Add-on modules for 
customization. 



Software Sorcery, Inc. 

7927 Jones Branch Dr.40O 

Mc Lean, VA 22102 

(703) 385-2944 




See for yourself! Dial 

(703) 255-2192 



MOW 





THE NEW MACRO-ASSEMBLER FROM SDS 
PERFORMS ASSEMBLY LANGUAGE MAGIC FOR YOU! 



Makes Assembly Language program- 
ming easy (or the novice as well as the 
experienced programmer. 
USER ORIENTED — manual includes 
many examples plus supplemental in- 
formation. 

MERLIN is not only FAST, but also has 
an extremely POWERFUL EDITOR. 
Nearly a dozen edit commands include 
block copy or move, lineteharacter 
insert/cfiange/remove, and a find & re- 
place function that makes it easy to 
modify existing tiles. 



FuH Macro capabilities. 
28 Pseudo-ops, conditional assem- 
bly, arithmetic support. 
Supports 80 column and RAM cards 
when present. 

Compatible with TED II + files; can 
optionally be used to read, create 
and edit standard sequential text 
tiles. 

SPECIAL BONUS: Also included is 
SOURCEROR which creates labeled 
source tiles from raw binary object 
code. 



WHEN IT'S A PROGRAMMING TOOL YOU NEED, 
CONTACT THE APPLE UTILITY EXPERTS — SDS! 

P.O. Box 582-M, Santee, CA 92071 • 714-562-3670 



$B4.95 




sauU-Hijestenn 
aats svscems 
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SMART II MEANS FAST 









SCLecfASLS 
OPf,i>/VS 



MlCgo7^C€££S0^ 







SMART II MICROPROCESSOR CONTROLLED PARALLEL PRINTER INTERFACE 

Be Smart! With the new SMART II parallel printer interface for your Apple II* Computer you 
can have print spooling, left and right margin control, and adjustable tab stops. The SMART [l 
can buffer over three thousand characters before it signals the Apple to stop sending. This 
eliminates the start - stop problem created with conventional printer cards and will keep your 
printer printing (instead of waiting). 

The SMART II is compatible with all known hardware and software including the Pascal 
Language System. Microsoft Z-80 Softcard*, 



and Hayes Micromodem II*. 

FEATURES: 

Compatible with all Centronics-type Parallel printers 

including the Fpion MX-70/80/100, Centronics 737/739/779, 

IDS 440/445/460/560, C. Itoh Starwritet, Anadex 

8000/9000/9500, and similar printers. 

.■JK Print Spooler which acts much larger when spooling 

text because of a unique compaction routine. 

On board software supports tvpcwriter-like TAB Com- 

mancis and has 1(j software selectable TAB positions Left 

and right margin commands are also software selectable to 

ease in the justification of reports and listings. 

Use with the Hayes Micromodem M* to prevent loss of 
characters while on line with a host computer. 



AVAILABLE AT YOUR LOCAL APPLE DEALER 



INTRODUCTORY 
RETAIL PRICE 



$225. 



(cable and 
connector 

Irc(uded) 



■ Apple la a registered Ifademark of Appie Compuler, Inc. 
" Z-80 Sollcaid 13 a registered Irademarh of Microsoll 

■ Micromodem II ia a registered Irademarh of Hayes, Inc 



HARDWARE; 6600 type microprocessor 

Two ROMs 
Six static RAMs 
Fight support ICs 
4 ft printer cable and connector 
High quality board with gold plated 
edge connector 



OLENSKY BROS., INC. 

COMPUTER SALES DIVISION 
3763 AIRPORT BLVD. 

MOBILE, AL 36608 
TOLL FREE: 800-633-1636 

DEALER INQUIRIES INVITED. 
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ULtIiviate PiNq-PoNq 
For pet 



This version of the popular 
"Pong" game features CB2 
sound and selectable paddle 
widths and speeds. In addition, 
the paddles can be moved in 
and out toward the net. The 
graphics are all handled in 
machine language for all 
40-column PETs, and should 
serve as an example for other 
high-speed graphic applications. 



Werner Kolbe 

Hardstr, 77 

CH 5432 Neuenhof 

Switzerland 



Soon after I purchased my CBM 3040 
floppy disk djive and the Commodore 
Assembly Language Development pack- 
age, I developed a Ping-Pong program, 
which existed already in a simpler 
monitor- written version. To modify it, I 
prepared a file for the editor using my 
symbolic disassembkr (MICRO 32:23). 
Then 1 could insert, change and modify 
whatever i wanted without keeping in 
mind all the addresses and pointers. 
Many of the labels used (L31, ]4, etc.] 
were created in the symbolic dis- 
assembly process. 

Program Description 

The program consists of two parts. 
One is in BASIC and contains mostly 
the description, and the other is in 
machine code and allows the fast 
graphics. 

This is a two-player game. Each 
player has four keys to control the 
movement of the paddles in the foiu- 
directions. Also, to put the ball into the 
game each player has a service key. The 
service is only allowed with the paddle 
at the end of the table, but after the 
serve it is possible to move near to the 



net. You can select different widths of 
the paddles and different speeds of the 
game. (The program uses the CB2 as 
sound output.! 

The BASIC program first determines 
which player has the serve by the ran- 
dom number in variable A. The direc- 
tion of the ball is set randomly in 
variable B. Then in line 15 we jump into 
machine language. We enter the main 
program, which is a set of subroutines 
that initiate the pointers. Next we draw 
the net and the table and then end in a 
closed loop that waits until the game is 
finished. 

The game itself happens in the hard- 
ware interrupt cycle, which is initiated 
every 60th of a second. This has two 
advantages: 

1. the timing is easily accomplished 
(but only in steps of 1/60 seconds]; 

2. the "snow" on the screen is avoided 
as the interrupt is initiated with the 
retrace of the beam when it is dark. 



In the interrupt the following 
subroutines are executed: 

SCAN scans the keyboard and puts the 
results into RSLTS and following. I 
think that is a generally useful routine 
since which keys are sensed is determined 
by TABL3 Irow) and TABL4 (column). 
The routine is made to store the result of 
a pair of keys into one byte that contains 
PF if the first is pressed, 01 if the second 
is pressed, and 00 if both are pressed. 

RLEFT, RRIGHT move the paddles 
according to the keys that are pressed. 
By simply storing into the place of 
RSLTS for the side movement, they are 
reset during service. The routines are 
designed to save everything that comes 
under the paddle, to make it possible, 
for example, to write text onto the table 
during the game. But I later omitted this 
for the clarity of the game. 

SERVE does the service. It needs some 
calculation to let the ball start right in 
front of the racket, as this can have dif- 
ferent sizes and different positions. 
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MVEBAL moves the ball and reflects it 
accordingly. When testing the game I 
found I had forgotten that there is also a 
reflection that is necessary if we hit the 
ball when moving the racket forward. 
(Otherwise we would just go over the 
ball.) For this purpose I inserted the 
PATCH that jumps into a side entry 
(|37] of MVEBAL. Not very elegant but 
it works. Every reflection produces a 
sound that is taken from the SNDS- 
table. 

The details of the program are given 
in the remarks, as far as possible. If the 
ball is not returned from one side, the 
endflag becomes zero and after restoring 
the interrupt pointer we return to 
BASIC. 

There the score is coimted in ZR and 
ZL and the service is changed accord- 
ingly. If one side gets more than 20 
points and is over 1 point higher than 
the other side, the game is finished. 

Entering the Program 

The best way to enter the program is 
to use an assembler. If you haven't got 
one you can use a monitor, preferably 



Listing 1 

1 GOSUB500iPOKEl,144!POKE2.0 

2 IFPEEK<337>^133THENPOKE1.25!POKE2.2 
5 0^59464 lfl^2S5!lFRNOt:i>>.5THEN»=l 

10 P0KE2531 -R !PRIMT"a" :i^QSUS440 

12 IFFI=1THEHPRIMT"HHSBMH SERVICE Oil THE LEFT ! " :ijOTCil4 

13 PRINT")fllBffiaa»l SERVICE ON THE RItjHT!" 

14 B=39-176«'CRNDM>>.5>:IFfl-lTHENB=41-176*<RND<l>>.3) 

15 P0KE2513.B:SVS23e4 

30 B=PEEKt;iSl.> :IFB=390RB=215THENZR^ZR+1 :0CIT04e 

33 ZL=ZL*1 

40 GOSUB440!B'^69!FORJ=lTO4e!POKEM,B 

50 FORI'0TO8:NEKT:e-162-BiPOKEn.B!FORI=eTO6:NEXT iHEXTiPOKEM.e 

90 iFZR>e0ORZL>2aTHENi2e 

100 IFINT(<ZR+ZL)/5^-(ZR+ZL>.'5THEN130 

110 001010 

128 IFFIBSiCZR-2L>>lTHEN20e 

130 R=256-HlGOTO10 

200 POKE39467,0iPRINT"Hfi!lffl3=lHOTHER GFIME <V/H> 7" 

210 OETB»:lFfi*'::'"V"flNDFU<>"N"THEN210 

220 IFR«"'yTHENRUN5 

230 PRTNT" rnaHMO jODO BVE]":END 

440 PRINT"a "ZL;PRIHT"a"SPCi:i5>"a;mG-POHe>"SPC<10>ZRiRETURN 

500 PRINT"3"SPC<8>"J0K** PING POHG ***" 

S10 PRT-IT"WmnVF THE PRDDLES ]" 

520 PRINT"SBN THF LEFT WITH '!' RMD 'SHIFT- RHD" 

330 PRINT" SIDEtJPlVS WITH 'PI' HNO 'D'" 

340 PRINT"ffiN THE RIGHT WITH 'DEL- UNCI ' = ' AND" 

S50 PRINT" SIDEWflVS WITH '5' AND '*' 

360 PRINT" MEERVICE :B ON THE LEFT WITH 'S'" 

570 PRINT"a ON THE RIGHT WITH 'S'. 

380 PRINT"aB HRVe R GOOD TlME" 

590 PRINT"B WERNER KOLBE" 

600 OETR«[IFFI»=""THEN60e 

601 PRINT"3BBHOOK ft SPERKER TO CB2 I" 

610 INPUT"S»IIDTH OF PRDDLES < 1-10> " ;B :IFB<:iORB>10THEHeI0 

620 PGKE25Z2,B 

625 INPUT")BIJSPEED < l-5> " ;B! iFB<10RB>3TMEH625 

630 POkCE2520,6-B 

S5B P0KE2521.6-B 

660 RETURN 



SPECIAL-This month only!! 



(Please mention this ad when ordering.) 



EHS SOFTWARE 

PET MAE $1 69.95 

(Read the rave revievus about this Disk-based Macro Assembler 

Texl Editof.) 

Graphics Drawing Compiler with purchase of MAE. . . $ 10.00 

APPLE and ATARI MAE $169.95 

Similar features as PET MAE. (Free — either 10 diskettes or 
Mini-Flex diskette file case.) 

PET Macro Assembler/ Editor and Graphics Drawing Compiler. 
Both tor S 55.00 

Cassette Babbit for 3.0 Rom PET Computers. High-speed cassette 
I/O. Load and save an 8K program from vour cassette deck in 
approiimalelv 30 seconds versus almost 3 minutes without 
Rabbit. Specify memory $ 19.95 

Rom version of Rabbit for 3.0, 4.0 or 8032 $ 49.95 

TRAP 65 — Use this device to intercept unimplimented opcodes 
and even expand the 6502's instruction set. For practically anv 
6502 microcomputer. Super Special $112.50 

EPROM Board for ATARI Computers. Plugs into slot A or B and 
can accept 2716, 2516, 2532, 2733 type EPROMS. Half the 

price that ATARI gets for theirs $ 19.95 

RIBBONS — Ribbon Cartridges for Slarwriter. Diablo. etc. 

Mylar $5.00 Cloth $6.00. 



Send mailing label and two 18tf stamps for free EHS Gazette. 
Write for our catalog and spec sheets on our products. 



EHS HARDWARE 

PEDISK (by CGRS) disk drive $550.00 

For COMMODORE computers. The most cost effectiue way to 
add a disk. MAE will be available for PEDISK Soon. 

VIC Color Computer $265.00 

ATARI 400 16K memory $345.00 

ATARI 800 16K memory $779.00 

EPROM programmer for PET Computers 

(The Branding Iron) $ 75.00 

Includes Hardware and Software for programming 271 6 and 2532 
EPROMS. 

2532 EPROM S 18,00 

4K byte EPROM. Use them in PET/APPLE/ATARI/SYM 

Starmriter 25 cps printer with tractors. CBM ^ $1690.00, 
APPLE = $1645.00 (parallel). $1700.00 (RS232) 

Universal Data System Modem direct connect 300 baud ORG/ 

AWS $169.00 

with auto answer $199.00 

1200 baud $259.00 



ACCESSORIES 



Syncom or Me mo rex 
5-1/4" diskettes. . . . 



10 for $27.50 

Mini-Ftex diskette file case 

holds50 -5-1/4"disketles $24.95 



VISA' 



Call for prices on Zenith and Super Brain Computers and whatever else you need. 

EASTERN HOUSE SOFTWARE PHONE ORDERS 

3239 Linda Drive (919) 924-2889 

Winston-Salem, N.C. 27106 U.S.A. (919)748-8446 

(Please add sufficient Funds for Postage.) 
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one with a disassembler. After having 
entered BASIC, the easiest way to com- 
bine both is to save it from the monitor: 
S "l:PING-PONG",08,0400,0DA4. 

For the tape you type 1 instead of 8. 
Before you run it you must reload the 
program from disk/tape in order to pro- 
tect the machine code from being des- 
troyed by the BASIC variables. But it is 
also good to have the BASIC part saved 
separately, because necessary changes 
may destroy machine code in the 
combination. 



Editorial Note: This piogram has been 
tested by the MICRO staff on all three 
40'Colunm versions of the PET. It will 
run as is on 3.0 and 4.0 PETs, with as 
httle as 4K RAM. but will leqmie the 
following changes for 1.0 {old) PETs. 

In the assembly language progiam, 
change the definitions of all addresses in 
the range SBl-SCO to the corresponding 
addresses in the range $ll-$20. In the 
BASIC progiam change line 30 to read: 

30 B ^ PEEK(21):IFB = 390RB = 
215THENZR = ZR -I- 1 :GOTO40 



BUY! SELL! TRADE 

COMPUTER & HAM EQUIPMENT 

r COMPUTER" 
TRADER 



Mailed Isl class, 1st and I5th ot every month 
SEND ADS FIVE DAYS BEFORE MAILING DATE 



- RATES — 



Subscriptions 

One Year SIOOD 

Sa Mnnlhs IG.DO 

Per Copy II 00 

Foroign (Air Maii| .125.00 yi 



Ads 

HobDy SO'Wo™™unMr 

Business 55" Word (■Number 

(Hon-SuascrilKi .Add 15' 

Wad/NumOer) 



Send Ms ana Subscnplions min fcmnlance \o 

COIVIPUTER TRADER^ 

Chet Umbert, W4W0R 

1704 Sam Drive • Birmingham, AL 35235 

(205t 854-0271 
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A 

Wooden 

Computer? 



Not from Commodore! 

So why should the desk look like wood? A pleasant 
cream and charcoal trimmed desk looks so much better 
with Commodore systems. One look and you'll see. 
Interlink desks are right. By design. 

The specifications only confirm the obvious: 



•Cream and charcoal 
color beautifully matches 
the Commodore hardware 
and blends with your 
decor. 

"An Ideal 710 mm (28") 
keyboard height yet no 
bumping knees because a 
clever cutout recesses the 
computer Into the desk- 
top. 

• High pressure laminate 
on both sides of a solid 
core for lasting beauty 
and strength. 

• Electrostatically applied 
baked enamel finish on 
welded steel legs— no 
cheap lacquer iob here. 



•T-molding and rounded 
corners make a handsome 
finish on a durable edge 
that won't chip. 
•Knocked down for sate, 
Inexpensive shipment. 

• Patented slip joints for 
quick easy assembly. 

• Leveling glides tor 
uneven floors. 

•Room enough for a 
Commodore printer on the 
desk, yet fits Into nearly 
any den or office niche— 
H: 660 mm (26") W: 1170 
mm (46") D: 660 mm (26"). 

• Matching printer stand 
available with slot for 
bottom feeding. 



PRICE: $299 

In short, as Coramodore dealers, we won't settle for 
anything that looks good only in the catalog! Our 
customers won't let us, Tfiey don't buy pictures. And 
neither should you. This is why we will l*t you use one of 
our d«sks for a waek and then decide. If for any reason 
you don't like It, just return It In good condition for a 
cheerful refund. 



II your Commodore daalsr cToesn't carry our desks yst, 
send a chsck for $299 and wa will ship your desk freight 
paid! 

Name 

Add rasa 

City 



_St_ 



_Zlp_ 



Interlink, Inc., Box 134, Berrien Springs, Ml 49103 
Master Charge and Visa welcome. Cali our order line: 
616-473-3103 



easF- 


D0 


F5 






FHE 


!_;"" 


0FI29- 


BH 






L76 


tr:>: 




01=120- 


BD 


63 


03 


L73 


LDfi 


TX2.X 


efl£D- 


F0 


ee. 






BEO 


L,~3 


0Fl2F- 


3D 


3B 


S2 




STB 


SCR5,!^ 


aB32- 


ES 








I NX 




0RJ3- 


D0 


F5 






BNE 


L79 


0Fl3S- 


flfi 






L7S 


tb;< 




0FI36- 


BD 


7B 


a? 


LSI 


LDB 


TK3.y, 


BFi3S- 


Fa 


06 






BEG 


LSO 


0H3B- 


3D 


BS 


S2 




STR 


SCR6 . :■: 


aninE- 


EB 








urn 




aFi3F- 


00 


F5 






BME 


LSI 


0H41- 


R0 


OR 




Lea 


LDV 


#S6R 


0043- 


S4 


00 






STV 


*ZEPO 


aH45- 


fia 


00 




Le4 


LDV 


#«O0 


01=14?- 


fi2 


ea 




LS3 


LDX 


ft*e0 


aH49- 


CR 






LSS 


DEK 




afi4fl- 


DO 


FD 






BNE 


LS2 


0ft4C-- 


as 








DEV 




0l=i4D- 


D0 


F9 






BME 


LS3 


0ft4F- 


C6 


00 






DEC 


*ZERO 


0FIS1- 


D0 


F2 






BHE 


L84 


0fl53- 


R3 


20 






LCIR 


#*2a 


0fi55- 


3D 


72 


81 


LS5 


SIR 


SCR4.X 


0H5S- 


Cfi 








de;^ 




0H53- 


Da 


Ffi 






BHE 


LS5 


ensB- 


3D 


72 


S2 


LS6 


STR 


1140.x 


aH^E- 


CR 








DEX 




0fl5F- 


00 


Ffi 






BHE 


L86 


aftei- 


ee 






L?5 


RTS 












;DRRU 


TRBLE RHD HET 


0Ft62- 


fl3 


fiS 




DBfiH 


LDB 


#«B0 


aRG4- 


Ra 


27 






LDV 


»S27 


eB66- 


39 


2B 


30 


LI 


STB 


SCRLl .V 


GFI69- 


99 


ca 


S3 




STB 


U2.V 


8p sc- 


SS 








DEV 




an SD- 


le 


F7 






BPL 


LI 


SfiSF- 


ft3 


50 






LDB 


»«50 


eH7i- 


85 


B3 






STR 


*TENP1 


0fi73- 


R9 


80 






LDR 


#S80 


firs- 


S5 


B4 






STfi 


*TEMP£ 


en 77- 


Be 


27 






LDV 


«*27 


aR79- 


B£ 


ao 






LDX 


#*aa 


n re- 


F\9 


E7 




L3 


LDR 


#*E7 


en 70- 


81 


B3 






STR 


(TEMPl.XS 


0n7F- 


fl9 


E5 






LDR 


«*E5 


0HS1- 


31 


B3 






STR 


r;TE(1Pl.>.V 


0HS3- 


20 


3E 


0fl 




JSR 


RDLM 


0HB6- 


38 


F3 






BC.C. 


L3 


0fiSS~ 


R9 


50 






LDR 


tt*5a 


ensR- 


85 


S3 






STR *TEnPl 1 


0H8C- 


R9 


S0 






LDR 


)t*S0 


0fieE- 


85 


84 






STR 


*TEMP2 


0PS0- 


HB 


13 






LDV 


tt«13 


efi32- 


R3 


67 




LS 


LDR 


tt*S7 


0fiS4- 


31 


es 






STR 


I TEMPI? .V 


0HS6- 


R3 


SB 






LDfi 


#*50 


0FI98- 


20 


HO 


OR 




JSR 


J4 


0fl9B- 


30 


F5 






BCC 


L5 


0FI9D- 


60 








RTS 




01=19 E- 


B3 


2S 




BDLN 


LDR 


♦t*2e 


0RFI0- 


IS 






J4 


CLC 




0BH1- 


65 


B3 






HDC 


*TEMP1 


aRR3- 


85 


B3 






STfi 


*TEMP1 


0Rfi5- 


90 


02 






BCC 


L6 


0Rn7- 


E6 


B4 






INC 


*TEMP2 


0flfi9- 


fiS 


B4 




L6 


LDR 


*TEnP2 


efifiB- 


C3 


83 






CHP 


SSS3 


BRRO- 


D0 


04 






BNE 


L7 


0ftfiF- 


B5 


83 






LDfi 


*TEnPi 


0RB1- 


C3 


C0 






CMP 


4tCC0 


eRB3- 


60 






L7 


RTS 












:SWfiP 


IHItKPUPT POINTER 


0flB4- 


78 






? 

SWFIP 


SEI 




0REI5- 


fie 


01 






LDV 


tt*01 


0flB7- 


Bl 


01 




L8 


LDB 


(23.. .V 


0RB9- 


BE 


C8 


03 




LOX 


TBLB.V 


BRBC- 


33 


CB 


09 




STR 


TBLa.V 


8BBF- 


SR 








T/ifl 




0HC0- 


91 


01 






STR 


CZ3>,V 


aBC2- 


8S 








DEV 




OBCS- 


10 


F2 






BPL 


LS 


afics- 


5S 








CLI 





70 



MICRO - The 6502/6809 Journal 



No. 42- Novemberl98l 



0fiC6- 63 




flHIT. 


BTS 










ZERO 


PRCE 




eHC7- flE 0F 




IHIT 


LDX 


tt*eF 




enC9- BD CD 69 


L9 


LDR 


H4.X 




0RCC- as 81 






STR 


*8RLPCS.X 




0BC-E- Cfl 






0E!< 






eftCF- 10 FS 






8 PL 


L9 




0flDl- 60 




I 

(MOVE 


BTS 










THE BRLL 




0HD2- C6 BC 




J 

MVEBRL 


DEC 


*DLVB 


»OELRV 


0FID4'- DO 37 






8HE 


LIO 




0RD6- no ca 


09 




LDR 


H5 




0RD9- 65 BC 






STR 


*DLVB 




OHDB- 19 




LIS 


CLC 






BRDC- B2 00 
0FIDE- fH5 B5 
0FlEO- 13 01 






LDK 


#*00 








LDR 


*IHCR 


;OET THE INCREMENT 






BPL 


Lll 


.THE HIGH BVTE MUST = 


0RE2- CR 






DE!< 




! IFF OR «oe 


eRE3- 6S Bl 




LIJ 


RDC 


*BBLPOS 


iRDD IT 


BRES- 85 B3 






STfl 


»TEriPl 




0flE7- SH 






TXR 






0FIES- 63 B'd 






BDC 


*BRLPD3+1 




eRES- BP B4 






STR 


*TEMP2 




0REC- R0 ee 

0REE- Bl S3 






LDV 

LOB 


#*O0 

i: TEMPI >.'>■ 


iSEI HEH POSninlJ 


OBF0- RE 0S 




J37 


LDX 


#*05 




anF2- DD RB 


09 


L13 


crip 


TBLl M 


::s THERE R 


0flF5- F0 17 






8EQ 


RFLCT 


; REFLECTION'^ 


0RF7- CfH 






PE^: 






@RFS- 10 FS 






BPL 


LI 




eRFR- R6 SB 






LPX 


*FRVCHR 


r RESTORE HPEB 


0BFC- 85 BB 






STR 


*PRVCHR 


: RD 5RVE HEH CHP. 


SRFE- SB 






TKR 






ORFF- 91 Bl 






STR 


CBflLPOS> -V 




&Bei- FIS 51 






LDR 


»t*51 


iDRRN BRLL 


OB03- 91 B3 






STR 


<TEt1Pl> ,V 




0605- B6 B3 






LDX 


*TEt1Pl 


iSRVE POINTER 


3807- B5 B4 






LDB 


♦TEMP 2 




0803- 86 Bl 






STX 


*BRLPDS 




0B0B- 35 B2 






3TR 


*BRLP0S*1 




aB0D- 6e 




L10 


RT3 






0BOE- ED B3 


09 


RFLCT 


LDR 


TBL2 . :•; 


.REFLECT 


0B11- FO 13 






BEH 


L14 


;IS IT OUTSIDE? 


0B13- 45 B5 






EOR 


» I NCR 




0B1S- 35 B5 






STR 


*IHCR 




0817- ED C3 


09 




LDR 


ShlDS,;'! 


;SET SOUND 


0E1R- 8D 4S 


E8 




STH 


W9 




0B1D- RD BD 


09 




LDR 


OURTH 


:RND START IT 


0B2Q- SD E2 


09 




STR 


CNT3MD 




0B23- 3S 






SEC 






0B24- B0 85 






BCS 


L15 


: FORCED 


0B26- SD OF 


09 


L14 


STR 


ENDFLO 


:STOP GOME 


0623- 60 






RT3 










; SCRU 


THE KSVBDBRD 




0B2H- BO 03 




SCBH 


LDV 


tt*a9 




S&2C- B2 00 




L.19 


LPX 


#SQ0 




0B2E- 20 4L=i 


08 




JiP 


I5ETKEV 


:UF / LEFT 


0831- DO 01 






BNE 


L17 


;0 = NOT PPE^--eD 


0S33- CB 






DEK 




:FF = PRESSED 


0834- 3S 




L17 


DEV 






0835- 20 49 


0B 




JSR 


CETKEV 


:Uumi .■ Rli.'H' 


0B3S- D0 01 






BNE 


L13 




063 R- E8 






IHX 




!0 BL-.1.I IF Bull' ri-b - 


083 B- 93 




1-18 


TVH 






083 C- 4S 






PMB 




jSBVE ■■■ 


083 D- 4FI 






L3R 


R 




083 E- B3 






TRV 




:LilVI[iE BV Tl'Ji' 


083 F- SR 






TXR 






0840- 99 88 


09 




STR 


RSLTS.'i' 


!'= H.iPE 1 r 


0843- 68 






PLB 






0B44- R3 






TRV 






0B4S- S3 






DEV 






0846- 10 E4 






BPL 


L19 


:i nil] 1 HUE 


884 S- 60 






RTS 






0849- 89 SB 


09 


GETKEV LDR 


TRBLS , V 




0B4C- 3D 10 


es 




STR 


WIS 


: SELECT RON mT FR 


0B4F- 89 3B 


09 




LDR 


TRBL4,'i' 


;uEi l^r\s^'■ 


0B52~ 2D 12 


ES 




RND 


W17 


; SENSE l.OLHHIl mT PR 


0B5S- 60 




L20 


Pl-j 




^Continued on next vaeel 



Classified 



Serf-Compiling FORTH 

FIG-FORTH for the Apple with all 
source code and tools for 
reconfiguring the system, as well as 
cursor-based editor and 6502 
assembler. Requires manual from 
FIG (not included]. 16-sector disk, 
$30.00. 

George B. Lyons 

280 Henderson Street 

(ersey City, NJ 07302 

|201) 541-2905 evenings 

Astro-Graphics for the OSI C4PMF 

Tired of OSI's BASIC! This new 
modified BASIC comes complete 
with cursor control for easy editing. 
New BASIC commands — VTAB, 
HOME, PLOT, VIDPLOT, COL = , 
INVerse, NORMaJ, HALT, and 
DIRECtory plus many more features! 
Price is $59.95 ppd- Send for our 
catalog of the finest OSI software. 

Interesting Software Consultants 

I52I7 Campillos Road 

La Mtrada, CA 90638 

Diskette Library for C1P/OS65D 

Quickly and efficiently locate your 
programs and named files from just 
one master diskette. Features 
include full editing capability; fast, 
ML sorting; alphabetical and random 
access listings; and automatic 
directory loading. $19.95. Send 
$1.00 for complete data sheet. 

Darby Software 

692 Cordelia Drive 

Galloway, Ohio 43119 

TImeStack — A Programmable 
Controller 

Time Stack Software /Hardware 
system expands a KIM-1 into a 
general-purpose programmable 
controller. Thirty events possible 
with auto-repeat. Adaptable to other 
6502 systems, OSI CIP, AIM 65. 
Specify system. Software manual 
$15.00. Hardware manual $5-00. 35C 
stamp for information. 

Hunter Technical Services 

P.O. Box 359 

Elm Grove, WI 53122 
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Used Computer Exchange 

Save time, money and mistakes. List 
as Buyer /Seller — get pricing advice 
with names and phone numbers of 
those who meet your criteria on first 
call. Apples, PETs, Atari, OSI, 
printers, CRTs, etc, 600+ listed. 
Pay only for results. Call: 

[703| 471-0305 or 

|800| 336-3393 

Used Computer Exchange 

U484 Washington Plaza West 

Reston, VA 22090 



WORM WAR! For the C4PHF 

A mean giant worm will wind its 
way down a mushroom forest. As 
you hit it, it will break into smaller, 
meaner worms. Meanwhile, you 
must avoid giant spiders and beetles! 
All machine code program based 
after the arcade game Centipede. 
Price is $16.95. 

Interesting Software Consultants 
15217 Campillos Road 
La Mirada, CA 90638 

Ohio Scientific 

Games: Galactic Tiadei, Drag Racei 
II, Missile Defense. Shuffle Bowling, 
Lunar Lander and more! Many with 
graphics, real time action, color and 
sound. Other programs: Transformer 
Design. Home Budget. Send SASE 
for catalog to: 

Ron Lashley Software 

2934 W. Missionwood Circle 

Miramar, PL 33025 

EM Relocator for the C4PMF 

This program will relocate OSI's EM 
to just about anywhere in memory! 
Now, you can disassemble BASIC or 
anything else to see what makes it 
tick. Price is only $16.95. Send for 
our FREE catalog. 

Interesting Software Consultants 
15217 Campillos Road 
La Mirada, CA 90638 



Apple Owner's Book List 

The Apple Owner's Book List gives 
ordering information for nearly 100 
titles that relate to the Apple II. 
$2.00/copy. 

Bob Broedel 

P.O. Box 20049 

TaUahassee, FL 32304 
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OSI SuperboardfCIP Expansion 
Board 

Adds 8K 2114 RAM and 4 EPROM 
sockets (2716 or 2732)- All link 
addressable anywhere in memory, all 
lines buffered, plugs into expansion 
socket. Bare PCB $39.95. Built |qo 
RAM) $99.95. Payment: check or 
Mastercard. Includes aiimail return. 

Northern Micro 

29 Moorcroft Park 

New Mill 

Huddersfield, England 

OSI Toolkit EPROM 

2716 EPROM. Address 9800-9FFF. 
Adds 16 BASIC functions: 
RENUMBER, HEX/DEC, 
DEC /HEX, CONVERSION, 
CONTROLLED LIST, VARIABLE 
LIST, TRACE, VffiW, SEARCH, etc. 
$39.95. Also: Assembler (3 x 2716) 
$49.95. Exmon EPROM $19.95. 
Payment: check or Mastercard. 
Includes airmail return. 

Northern Micro 

29 Moorcroft Park 

New Mill 

Huddersfield, England 



Business Software by ADS 

For the Apple n and Atari/ 800. Why 
pay more for a bunch of unrelated 
programs? Business Plus will handle 
invoices, statements, credit memos 
and more, much more! fust $299 
complete or $25 for demo disk 
(credited towards purchase]. VISA, 
Mastercharge accepted. 

Advanced Data Systems 

7468 Maple Avenue 

St. Louis, MO 63143 

314/781-9388 



Ohio Scientific C1P, C4P COLOR 

Earthship has GREAT programs. 
CIP, C4P — Animated Lunar 
Lander, Catchword, real-time 
Scrabble, graphics designer, 
analytical plotter, single disk copier; 
CIP — animation and shape table 
graphics, BASIC tutor, add and 
multiply tutor, information 
processing simulation and tutor. 
Send for catalog. 
Earthship 

17 Church Street #28 
Nutley, New fersey 07110 



No. 42- November 1981 



MICRO - The 6502/6809 Journal 



73 



Classified 



jcontiniied) 



Spanish Hangman 

2,000 SPANISH words and sentences 
taught in a fun way on the Apple. 
Send for your school's free 30-day 
evaluation diskette, from: 

George Earl 

1302 South General McMullen 

San Antonio, TX 78237 

Extended SYM-BASIC 

Adds 30 commands, requires 16K, 
$85 US/$95 Can., object on 
cassette, manual, and source listing. 
SYM-FORTH 1.0: fig-FORTH for 
16K SYM-1. Editor, assembler, 
cassette interface $135 US/$155 
Can., object on cassette, manual and 
source listing. 

Saturn Software Limited 

8246 116ASt. 

Delta; B.C., V4C 5Y9 

Canada 

PET Arcade Software 

Astroidz and Munchman games for 
your 8K old-new ROMS. Astioidz 
are invading the galaxy. Four levels 
of play. Mimchwan is based on 
arcade game Pac-Man. ZIP and ZAP 
are out to get you. Fantastic 
graphics. $9.95 each cassette. 

ComputerMat 

Box 1664M 

Lake Havasu, AZ 86403 

PASCAL LEVEL 1 

This Pascal system allows the 
development of BRUNable programs. 
The system supports IF-THEN-ELSE, 
REPEAT-UNTIL, FOR-TO/ 
DOWNTO-DO; WfflLE-DO, CASE- 
OF-ELSE, FUNCTION, 
PROCEDURE, PEEK, POKE as well 
as disk I/O via DOS (specify 3.2 or 
3,3], Price $35.00, Send SASE for 
more information. 

On- Going Ideas 

RD n, Box 810 

Starksboro, VT 05487 

PET/CBM Owners 

Real world software at low cost. 
2114 RAM adapter and 4K Memory 
Expansion for "old" 8K PETs. Write 
for free catalog! 

Optimized Data Systems 

Dept. M, Box 595 

Placentia, CA 92670 
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CLC 






0002- 


65 


61 






RDC 


•16RLPD8 


IRDD OR SUBTRACT 1 


0D04- 


65 


61 






STR 


WBALPOe 




0006- 


6R 








TXR 






0007- 


65 


62 






RDC 


*6RLPD8*-1 




0009- 


6S 


62 






STR 


WBRLP09*! 




0D0B- 


R6 


C0 






\.0X 


HiRLVS 




0D0D- 


98 








TVH 




fNDU ADD HORIZ. SHIFT 


eD0E- 


10 


02 






BPL 


L56 




0D10- 


R6 


6F 






LDX 


WRRVS 




anie- 


BR 






L56 


TKH 






0D13- 


18 








CLC 






0D14- 


65 


61 






HDC 


*Bfll-P09 




0Di6- 


85 


61 






STR 


WBRLP08 




0D1B- 


90 


02 






BCC 


L57 




0D1H- 


ee 


B2 






INC 


•6HLP0S*! 




0D1C- 


R0 


00 




L57 


LDV 


#•00 


fSftVE THIN08 UNDER 


0D1E- 


61 


61 






LDR 


CBfiLPOS>,V 


■t THE BALL 


0D20- 


65 


66 






STH 


*PRVCHR 




0D22- 


H9 


51 






LDR 


#•91 




0DZ4- 


91 


Bl 






STR 


(BflLP03>,V 
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QD26- 


8C E3 09 




8TV 


SDEFLO 


/SERVICE 


IS DONE 


0D29- 


- 1=19 20 




LDA 


**20 


jCLEBR 


IIESanOE 1 


eD2B- 


- on 




TH« 












eD2C- 


90 JS 81 


L5B STH 


SCR3,X 










0DZF- 


CFI 




DEX 












0038- 


D0 FP 




BNE 


Lse 










0032- 


60 


L49 RTS 
















1 

^MRIN PROORFIM 










90 33- 


2e 10 an 


MAIN JSR 


OJSPLV 


/0RRPHIC8 




8036- 


20 62 en 




JSR 


ORBM 










0039- 


20 C7 0Fl 




JSR 


INIT 


MHITinLIZBTION 1 


a03C- 


20 BO 0C 




JSR 


INITSD 










8D3F- 


n9 FF 




LDH 


tt«FF 










0041- 


80 OF 09 




STB 


ENDFLO 










0D44- 


20 84 BR 




JSR 


3WBP 


<INTERRW>T POINTEI^ 


0047- 


58 




CLI 












3046- 


FI9 6C 




LDB 


«*6C 


iset on 




0O4FI- 


85 00 




»TH 


MZERO 


INOIRECT 


JUMP 


aD4C- 


n9 20 




LOH 


M«20 










0D4E- 


FIFI 




TAX 












eo-iF- 


9D EB 09 


L64 STB 


3flVIT,X 


JCLEBRINO 




0D52- 


CR 




DEX 












0053- 


10 FFl 




BPL 


L64 










0055- 


FIO DF 09 


L65 LDH 


ENDFLO 


/CLOSED LOOP 


aD5S- 


□8 FB 




BNE 


L65 


/ liNTIL OAME 


eosfl- 


60 


> 
fit 


RTS 




r IS FINISEO 






4TERRUPT 


LOOP 










0O5B- 


FiD DF 09 


ITRP LDfl 


ENDFLO 


>OfmE FINISHED? 


aosE- 


FB 3S 




BEQ 


L66 










aoeo- 


20 2F1 0B 




JSR 


SCBH 


/SCRN KEVSOfiRO 1 


0063- 


BD E3 09 




Lon 


SDEFLO 


8ERVIC7 




0D66- 


F0 03 




BEQ 


L68 










0068- 


fl9 00 




LOB 


H*ee 


/VE8, 






0O6B- 


SD BC 09 




STB 


\4Z0 


RbUtI 


PAODLES 


8060- 


8D BE 09 




STB 


M24 










0070- 


20 56 08 


L68 JSR 


RLEFT 


>rTOVE PADDLES [ 


0073- 


BD DF 09 




LDB 


ENDFLO 










0D7e- 


F0 20 




BED 


L66 










0073- 


20 25 ac 




JSR 


RRIQHT 










0078- 


fiO DF 09 




LDB 


ENDFLO 










607e- 


F0 13 




SEO 


L66 










0D80- 


20 CD ec 




JSR 


SERVE 


/SERVICE 




0083- 


RD E3 09 




LDB 


30EFLG 


fPLAV? 






0066- 


O0 03 




BNE 


L72 










0D&3-- 


20 02 0FI 




JSR 


MVEBHL 










aoes- 


CE E2 09 


L72 DEC 


CNTSNO 


/TIHINO OF SOUND 1 


0D8E- 


oe 05 




BNE 


L74 










0090- 


fi9 00 




LDB 


M>00 










0092- 


SD 43 ES 




STB 


U9 










0095- 


ec cs 09 


U74 JMP 


';tbl0> 


iFINISH interrupt] 


0096- 


B9 5D 


L66 LDB 


KfSO 










0D9H- 


SO 4S E8 




STB 


U9 










0D9D- 


20 84 0n 




JSR 


SWBP 


/RESTORE INTERRUPt 


0OHe- 


4C ee 00 




JMP *00a0 /COMPETE IT 








0900 4C 


33 0D 55 


43 


43 


43 


43 


Llstlng 2 B 




0903 43 


43 43 43 


43 


43 


43 


43 








0910 43 


43 43 43 


43 


43 


43 


49 






. : 


0918 20 


20 20 20 


20 


20 


20 


20 






. I 


0920 20 


20 20 20 


20 


20 


20 


20 






. I 


0928 20 


20 20 42 


20 


10 


20 


89 






. I 


0930 20 


0E 20 37 


20 


2D 


28 


90 






, t 


0938 20 


0F 2B 8E 


20 


07 


20 


3D 






. 1 


0940 20 


20 20 20 


20 


20 


20 


20 






. 1 


0948 20 


20 20 20 


20 


20 


20 


20 






. 1 


0950 20 


20 20 4R 


40 


40 


40 


40 






. 1 


0958 40 


40 40 40 


40 


40 


40 


40 






. : 


0360 40 


40 40 40 


40 


40 


40 


4B 






■ I 


0966 00 


11 IS 01 


0C 


09 


14 


19 








0970 20 


20 13 0F 


06 


14 


17 


01 








0973 12 


05 00 02 


19 


20 


17 


05 






, t 


0980 12 


0E 05 12 


20 


03 


0F 


0C 






. 1 


asae 02 


05 00 03 


00 


04 


04 


09 






, t 


8990 01 


05 05 05 


04 


RA 


BB 


RR 






, t 


0998 HB 


BR BB 01 


01 


02 


01 


80 






• 1 


O9B0 80 


80 40 01 


80 


BB 


HR 


RR 






, J 


e9B8 BB 


Rfl BB R0 


BO 


61 


El 


ES 






• 1 


0980 E7 


00 00 F0 


F0 


0E 


0E 


oe 






, E 


09B6 00 


00 00 00 


00 


00 


00 


00 






. I 


09 C0 BR 


BR Hfl 40 


60 


80 


40 


BB 






, I 


09C8 BR 


BB RR SB 


0D 


00 


31 


00 






. E 


09D0 31 


D7 56 81 


41 


31 


20 


20 






, r 


09D8 04 


04 02 10 


00 


03 


FF 


00 






• " 


09E0 02 


02 E2 00 


00 


BR 


BR 


RR 



iUCftO^ 



1 

1 
i 
i 
1 
1 
i 
1 
I 

L 



Another suprise package from Belgium! 
additional firmware for : 



PET 




CBM 



ARROW. Software generated C2N cassette deck 
operation at 3600 baud — 7 times faster! Repeat 
keys, 80 by 50 graphics. Hex calculator $60 

SVPERCHIP. Enter BASIC keywords with 2 
keystrokes. Condense BASIC, Repeat keys. Call- 
able trace for last 10 lines executed. Many editing 
commands, user functions, etc S75 

FASTER-BASIC. Cut execution time in half! 
Semi-compiler, load your program and RVN. $60 

EZASM. Complete interactive assembler with 
cross reference. 4K chip for cassette and diskette 
systems. Source created and maintained like 
BASIC. Ultra-rapid (1000 LPM) execution! $80 

EZAID. Two pass disassembler with optional 
user-defined labels. Creates a source program in 
RAM which can be Saved and assembled by 
EZASM. Think about it! Also Repeat keys. Auto, 
Delete, Renumber, Search and Replace, Move, 
Compare, and more, all in a 4K chip! $80 

Available for all new ROIV1 40/80 column machines. 

Prices include shipping. Write today for details. 

DataCap 73 rue du Village, 4545 Feneur, Belgium 



PROGRAMMER 



PROGRAMMER is a newsletter 
that offers tips on software 
technique and invaluable 
marketing information. 



^^:^^^ 

^^^•&^.. 
<^:^^ 



You II learn who 
is selling 
software and 
who isn't. 

What markets 

are hot and what 

matkecs ate dead. 

Industry features keep you informed 

about your rights as a freelancer. 



Don't be without it! 

SEND CHECK OR MONEY ORDER TO: 



PROGRAMMER 
P.O. BOX 3210 
MANCHESTER, N.H. 03105 



_S'IATKi_ 



_ZIP_ 



D CHECK BOX FOR SAMPLE ISSUE-$2.00 
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On The 
Built-in 
Display 



PET/ CBIVf" 2000/3000/4000 Series 
S275.00 * 

Select either BO x BS op 40 x S5 display format 

From fehe keyboard or program 



Features the same n-iemory nnap and subroutines from the Basic ROMs (specify 
\A/hich version of Basic when ordering)* *, for standard programming. You also 
gain the use of 10&3 extra memory locations in the 40 column mode, or 4*7 
extra locations in the SO column mode. [These locations are available only to 
machine language programs, or peek S poke from Basic). 

Displays the full, original character set, including graphics characters in either 
mode. 



All utility software, firmware, like Toolkit^'^. Dos Support [Wedge), 
is compatible in both modes of operation. 



:xtPa-mon, etc.. 



The connplete enhancement consists of: 1 dual S^-pin socket [one socket for the 
■40 column screen editor, and one for the BO column screen editor], and a circuit 
board that replaces the existing screen RAM. Each circuit board is registered 
to the original oi/vner. There is also an BO column reference ROM that plugs in 
one of the expansion sockets [specify the address when ordering]. An option 
board is available [S25.00) that allows the ROM to be used with any other 2K 
RDM, in any of the expansion sockets. 

Available from your local dealer or: 
EXECOM CORP. 

1901 Polaris Ave. 
Racine, Wl 53-404 
Ph. 414-e3S-1004 

* Plus appropriate installation charges. This requires some circuit modification, 
(available from the factory for S 75.00 plus shipping) 

* *lf power-on message = ### COMMODORE BASIC ### you have 3.0 Basic. 

[Available only for Basic 3.0 S Basic 4.0 at the present]. 

PET^"S. CBM are trademarks of Commodore Business Machines. 

We will ship via Master Charge. VISA, C.D.D., or pre-paid. 

Toolkit'"is a trademark of Palo Alto IC's, Inc. 

Installation may void your Commcdore 90 day warr. 

The Execorrf "'board is guaranteed for 1 year. 



I 
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PET Vet 



By Loren Wright 



Since this issue is centered around 
games, i probably shouldn't let it pass 
without saying something about the 
PET and games. The PET lends itself 
nicely to games. The combination of a 
wide variety of graphic characters easily 
available from the keyboard and pro- 
grammable cursor controls makes it 
easy for someone with little experience 
to do some sophisticated game pro- 
gramming. Animation is a simple mat- 
ter, whereas on the Apple it takes more 
skill to manipulate the high-resolution 
graphics. 

Commercial game program availa- 
bility started out pretty big, then 
diminished, and only recently has 
begun to pick up again. Many software 
houses have withdrawn from the Com- 
modore market in favor of the bigger 
and more lucrative TRS-80, Apple, and 
now Atari markets. The PET's sudden 
ROM switches, lack of a color display, 
and difficulties in program protection 
have all contributed to the dearth of 
game programs. Nevertheless, there is 
still a fair amount available, and now 
that Commodore seems to be showing 
some consistency in its approach to the 
market, that amount should increase. 

CURSOR (Box 550, Goleta, CA 
93116 — $18/year|, a quarterly cas- 
sette magazine for the PET, has been 
around since 1978 and has established a 
reputation for technical excellence. 
Games and novelty programs have 
always been a significant part of CUR- 
SOR'S offering. 

In spite of MICRO'S previous 
"hands-off" policy toward games, a 
few — notably Life — have appeared. 
The most recent version of Life for the 
PET by Werner Kolbe (MICRO 19:45 
and Best of MICRO HI, p. 249| 
presented a technique to use the PET's 
screen as a movable window into a 
much larger playing area. Other ar- 
ticles, such as |ohn Girard's "Horizon- 
tal Screen Scrolling" (MICRO 37:81| 
and Peter Coyle's ' 'PET Interface to Bit 
Pad" [38;83), present techniques which 
have obvious applications to games. 



In ray August "PET Vet" column I 
reviewed "VIGIL," a game-oriented 
language from Abacus Software, For 
VIC users, there was an excellent arti- 
cle by David Malmberg on light pens in 
last month's issue. My "Substitute 
Characters" article (also in October) 
presents some food for thought for both 
PET and VIC game programmers. As 
you can see, MICRO is a good source of 
ideas, information, and techniques for 
game programmers. 

Kolbe's "Ping-Pong" has been 
reassembled and thoroughly tested by 
the MICRO staff, [The champion is 
Associate Editor Mary Ann Curtis!] It 
will run on 3,0 and 4.0 PETs as is, but 
needs a few [conceptually) simple 
changes for 1,0. I hope "Ping-Pong" 
will serve not only as an entertaining 
game, but also as an example for your 



own high-speed graphic programs. 
Some of the other games in this issue 
should be modifiable for the PET, 

Captain Kirk and the PET 

Commodore has announced what it 
calls its "biggest ad campaign ever," 
featuring actor William Shatner, who is 
"known throughout the world — and 
beyond — as Captain fames Kirk, com- 
mander of the Starship Enteipiise on 
Star Trek." The campaign will pro- 
mote the entire line of Commodore 
computer products, from the VIC to the 
new "SuperPET." What difference does 
this make to those of us who already 
own PETs? Well, the more people who 
own PETs, the bigger the market gets, 
and the more support the products get 
— not only from Commodore, but also 
from independent companies, 

MCRO^ 



CBM/PET? SEE SKYLES ... CBM/PET? 



**Should we call it Command-O 
or Command-O-Pro?" 

That's a problem because this popular ROM is 
called the Command-O- Pro in Europe. (Maybe 
Command-O smacks too much of the military.) 

Bill whatever you call il. ihii 4K hyle ROM will provide yaur CBM BASIC 4.0 (4016, 
403?) ifnd SO.^2 ci>Tnpi[[cri wiih 20 aJdiliunal commands Lnciuding 10 Toolkil program 
ediiiiigand debugging commaiid.f and lOaddniona] commands for scrttning. lormalling 
and disc file man ipii lacing. lAnd our manual vviiler dug up 39 addiMonal commands in llic 
course of doing a 7S-page niGmiall) 

The C^ommand-() extends Commodore's R032 advanced s*.TCen ediling t'earurei lo Ihe iilli- 
ma[e. You ean now SCROLL up and dov*'n, inserl or delele emire lines, delete the char. 
aclers lo (he lefl or I'lghi of ihe cursoi, selcci "ri-.\"V or GRAPHICS modes or ring Ihe 
S032 bell, Vou can even redelme rhe window lo adjust il by size and posilion on your 
screen. And you can define any key lo equal a wqucnte of up to 90 key strokes. 

The Coi]unand-Ochip resides in hexadecimal address 59000, Ihe righirriOM empty soeket 
in 4016 and 4032 or Ihe rearmOM in 8032. If there is a spaee conllici, we do have Socket - 
2-ME available al a very special price. 

Skyks ^uuranlres .^uur sal Israel iim: if you are nol absolutely happy vvith your nevv 
Command-O, reiurn ii lo us wiiliin len days for an immediate, full refund. 

Command-O from Sk>tes l']leclrJc Works.................. 175,00 

Complete with Sockel-2-Me 95,00 

Shipping md Hondlins (USA/Canada} S2.50 I Europe/ Asia) SIO.OO 

California residents inus: add 6%/6'/i% sales lax, as requited. 

SkyleS Electric Works VisB/MBSIcrcard orders: call lollFree 

23IE Suulh Whisman Ruad {ROO) 227-9998 Icxcepi California). 

Mountain View, CHliforniH 9404] California orders: please call {415)1 

(415)965-1735 965-1735, 
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and Updates 



LauyP. Gonzalez caught an enoi in 
his aiticle "Disassembhng to Memory 
with AIM 65," which appeared in 
MICRO (39:25): 

The listing of a sample run of the 
program was typeset with several errors. 
Here is the corrected version. 



Sample Program Run 




,",-> = Q E i^^ ii 






<Q>/ 






T0=6i:.eci 






EDITOF 'cUl-'-ii 


ee 


FROn^EP'if 






,■■18 






Efl'*^' 43 


^HfJ 




Efl47 4,- 


LSR 


, Fl 


EH4S 4R 


LSP 


R 


Efl4? 4?- 


LSP 


. fi 


EH4H 4f) 


LSP 


B 


Erl4E 2S 


I';r 


EfiSi 


EH4E S3 


PLft 




Efi4F i3 


AND 


#eF 


ER51 13 


CLC 




EfiS; 6? 


PDC 


#26 


MORE 7"^- 04 




ER54 l3 


CNF 


#3fl 


ER5i ?8 


ECC 


EflSfi 


ER5S 53 


ftDC 


#66 


ER5S 4.: 


JflP 


E?BC 


MORE''N 






■:t:> 






..:=*Eh4f 






=(;l> 






r"' 






OLiT=P 






*=$EF.4r-. 






PHR 






LSR Fl 






LSR R 






LSR fi 






LSR fi 






JSR fEfl5i 




PLR 






RMD #*QF 






CLC 






RDC #t30 






CtIP #J"iH 






BCC iE,R5R 




FiDC #f>^c 






JMP *e:-b 






END 







Please note this conection: 

The Commodore PET User Group 
Newsletter as listed in the Resource 
Update 137:104) should be: 

$15/6 issues 
Commodore Interface 
681 Moore Road 
King of Prussia, PA 19406 



M.j. Keiyan of Tallmadge, Ohio, of- 
fered these corrections to his article 
"An Inexpensive Printer for your Com- 
patei," (MICRO 39:61), Usting J: 

The listing on page 61 will not work 
properly; the two lines of code should 
read as below: 

LOCATION 

804C BD F5 80 LDA ROMTAB - 1 , X 
804F 95E5 STATABLEA- 1, X 



One of our readers called in with 
these corrections to Mark Bernstein's 
article "Jumps and the 6502, " (40:08): 

On page 8, the last lines in the sec- 
ond column should read: "next instruc- 
tion following the fSR command - 1. " 

On page II, on the bottom of the 
first column, the lines beginning with 
LDA should read: 

LDA#L,MONITOR -1 
LDA #H, MONITOR -1 



Fred Boness of Kenosha, Wisconsin 
sent us this update: 

Two of the letters I have received 
about my article on memory expansion 
for the Superboard (37:79) have shown 
me that it was hopelessly out of date by 
the time it was published. Earl Morris 
has told me that OSI stopped selling 
bare boards more than a year ago, I 
bought mine from an OSI distributor 
early in the summer of 1980, I probably 
have one of the last boards available. 

The second letter is from Mr. 
William H, Conrad who states that OSI 
does not sell bare printed circuit 
boards, I have to believe him; Mr, Con- 
rad is the field support manager for OSI. 

Both men have mentioned that 
other companies are making products 
for OSI machines. Because of that, the 
expansion possibilities are much better 
now than when I started to modify my 
Superboard, 



Ian Pawson in Leicester, England, 
sent these revisions: 

The following modifications to 
David L. Rosenberg's excellent double 
barrelled disassembler (MICRO 38:33] 
will enable it to give the correct output 
with the Apple High Speed Serial card. 

Alter line 22 to VID = $7F9 
Alter line 94 to LDA #$01 
Alter line 95 to STA VID 
Move the label from line 98 to 99 
Delete lines 98 and 101 

These mods enable the screen display 
for correct tab positioning. It assumes 
that the card is in Slot 1. 



Alex Bamp of Carmel, Indiana, 
revised an Apple program — now it 
runs on his OSI CIF- 

1 noticed the article in your 
September I98I issue of MICRO, 
"Dollars and Sense Revisited" (40:66), 
I attempted to use the Apple program 
on my OSI CIP and it failed. This was 
caused by the OSI form of handling 
numbers with a space before and after 
the number, mixing up the MIDS state- 
ment at the end of line 120 in listing 1, 
or line 20 in the text. For OSI 
machines, the program works perfectly 
if you type in the following substi- 
tuting line: 

20 N$ - STR$(SGNiN) 

INT(ABS{N))) + 

MID${NS,3,3) 

The only change is in the last state- 
ment, MID$(N$,3,3), instead of 
MID$(N$,2,3) for the Apple, This is a 
great algorithm, and I compliment 
David Delli Quadri for a job well done. 
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Robert N. Bolster of Alexandria, 
Virginia sent this update: 

Here is an addition to complete 
Scott Schram's useful Applesoft 
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Variable Dump program in MICRO 
(36:23]. Between lines starting at 40B3 
■ and 40B5, insert 



C0NT4 



AND #$E0 

8NE CONT4 
LDA #$7E 

JSR OUTDO 
LDA |SPL),Y 

ADC #$40 

JMP C0NT5 
LDA (SPL),Y 



DETECT CONTROL 

CHRS. 

NOT CONTROL 

YES, MARK WITH 

SYMBOL $FE 



CONTROL TO 
NORMAL 



and label the next line 'CONT5': 

C0NT5 JSR OUTDO 

Strings which are (or contain! control 
characters will now be fully displayed, 
with a symbol ( >on the screen, fvj on a 
printer) before each control character, 
i.e. " D $ >D" for control-D. 



Ear! Morris sent this update: 

Since I claim to be lazier than Les 
Cain (MICRO 37:33), I have converted 
his program to create the "READ" and 
"POKE" statements as well as the 
DATA. 



CBM/PET? SEE SKYLES ... CBM/PET? 



PET owners everywhere sing 

Jj Thanks for the Memories J J 

to good old Bob Skyles 

...ihey should. ..because Bob Skyles is the only complete 
source for memory boards for any PET ever sold. Old Bob 
won't forget you. 

And Ihe Skyles memory systems have Ihe highest quatily control of any computer prod- 
uct ever, OvEr 100 million bits of Skyles memory boards ate already in the field; you can 
count the lotal number of failures on ihc fingers of one hand. First quality sialic and 
dynamic RAMS, solid soldered on first quality glass epoxy. That is why they are guaran- 
leed — III spile of ihe new lower prices— (or » lull livo years. 

The boards eonneci directly lo ihc data bus on your board with ribbon cable and 50 pin 
connectors that keep the data bus open lo Ihe oulside world. InslaLLs in minutes without 
special tools or equipmem, ..just a screwdriver. 

Because of our new dynamic memory design, and lo celebrate the Skyles' Third Annual 
Survival Anniversary, here are the smashing new prices: 

The 8K Memory System originally i2i0.00 now S200.00 Save $ 50.00 

The I6K Memory System originally 1450.00 now iiOO.OO Save i I SO. 00 

The 24K Memory System originally 1650.00 now $400.00 Save S2S0.0O 

. . . For any PET ever made. When ordering, just describe your PET by model number 

and indicate Ihe amount and type (or brand) of memory currently in Ihe unit. 

Shipping and Handling (USA/Canada) S3.Sn (Europe/Asia) SIS.OO 

California residents must add 6%/6'/!% sales lax, as required. 



Skyles Electric Works 

23tE South W'hjsman Road 
Mounlain VieW, CaJiEurnia 94041 
(41S> 965-1735 



Visa /Mastercard orders: call lollfree 
(800) 227-9998 (except California|. 
California orders: please call (4t5) 
965-1735. 



/lAiaO ■■' SBIAMS 33S olBd/IAiaO ■' 



Morris Listing 

le F!fIWT"liATA TAPE MAKER" 
2E Ai="DATA* 

JE L:j=5Ee£;lx-2 

4e FRINTiXhFUT'BECriNIhG HEX "; hj, iG05UB iBEC iST=D 

Se FRmT:IhPUT"aDIhG hex •;l,i;GOSUBieCC;j'I=D 

SH FHINT;INFLJT"TliRn OW FlEl.ORDER*;t<» iSAUEiPSINT 

7e FRINTLN;"JOR X="ST"TO"fI"iREADJiFOft£X,J;N£XT" 

3fc LiJ=Li:i-i-IX 

9e 10HI=ST TO »"I SltFiE 

lee FRIfTLW;A$; ;Lli=Lt4i-IX 

i2e roHj=i TO i+s 

125 IfJ-JITHEtJi7e 

IJE Xi=STRiC FEH;^^ J)) 

lit. T=LLi>itXi) 

ISe FHINTRIGHTiC Xi,T-j)-,*; 

155 uv.n 

16E FRINTPEEM J) :WEXTiG0T0999 
176 FRINTFE£l\lJ) 
599 LOADiEKD 

leee toRi-iTOn 

leie Dt I) = ASUMIDithi,,IJ)-'i3 

ie2E UDi.li)9 THENDl I)»Dt I)-7 

leJE NEXT 

ii'.Z li=-.ei6»DC i) +256»Ut 2) +ia«Lit i) +0^ h) 

ie5E RETURN 



Sample Run 



5eee tOR x= 2^572 to 2gs9 : 

5EC2 DATAE, l,2,3,'.,5,S,7i^ 

see". DATAie,ii, 12, iJ, I.*,i5,16,i7, Id, 

5EE6 DATA2e,2i,22,a3,24,25, 2S 



iR£flDJiF011£K,J;^fEXT 
9 

19 




The 

DOS 

SWITCH 

FOR APPLE r &][■- COMPUTERS 



TM 



BOOT DOS 3.2 OR DOS 3.3 

With the FLIP ol 

A SWITCH 




' Convenietit switch location 

■ Single plug installation — no soldering 
' No piggyback board on disk interface card 

■ No blockage of slot #7 

Same simple boot process for 13 
and 16 sector diskettes 



*. 



■^/, 






•'VH 



With this device you can conveniently boot your 
valuable copy-protected/unmuftinable diskettes on 
your DOS 3.3 system without the BASICS diskette 

Model DS-1 (uses your boot PROWIs): $29.85* 
^V^^'-Model DS-2 (3 2 boot PROIV! installed): 544.95* 

Auailatile Irom your Apple dealer [direcl orders accepteij] 



'Dins shiQ S C D 
90aay wdiianly 



JUCftO 



Computer Micro Works Inc 

P.O. Box 33651, AMC Branch. Dayton. Ohio 45-133 
(513)878-8533 



No. 42- Novemberl98l 
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DOUBLE DOS PLUS 

for Apple Computers 
$39.00 



201-839-3478 




OTHgR UWKHIE PWWWCTS FIIBtM«tCliPJiMLD!»I!UiUIlNOJjj^ 

THpEffT^CAIlD^Tw^Ioe^M^^iasii^BlBiBncacafdlor the Aepie oompuiBF 




LoaOedwLtfiintDrmaliDnofinteresl loan Apple owners 13.98 

PARALLEL PHIMTER CARD— PPC 100— A Um.ersal Cenlronics lype parHllal D'i"18r 
boaidcomplelG with cable anO connector Hiis untqiie board aHows you lo turn on and ofl 
the nign Oil so 'hsl you can access acMilionel (eslures in many ptmiers Use wiin EPSON, 
ANADEX. STARWRITEH. NEC. SANDERS, OKI, anfl ol^er wilh slandaifl Cemronrcs 
conTiguial'on __. / ; & SI 39,00 



DOUBLE DOS Plus— a piggyback board that plugs into the 
disk-controller card so that you can switch select between 
DOS 3,2 and DOS 3.3. Works with the language system elimi- 
nating the need in many cases to boot the BASICs disk. Also 
eliminates the chore of converting all of your 3.2 disks to 3,3 

NOTE- APPLE is a rafliatared tiademark of APPLE Computoi, Inc., Cyportino, CA, 

WHY IS DOUBLE DOS PLus belter? 

• Nothing needs to be soldered, just plug in and go. 

■ Since all tour ROMS are used, all software will work, 
even early 3,1 DOS. 

• Because the ROUS fit on the back of the board, it has 
the thinnest configuration allowing full use of slot #7 

• One set of ROMS is powered up at a time, thus saving 

power, DOUBLE cos Plua rsqums APPLE DOS HOMS 

• Full 90-day warranty from TYMAG. 
MICRO-WARE DISTRIBUTING INC. 
P.O, BOX 113 
POMPTON PLAINS, N.J, 07444 





m,.iiiL„Lii i.'i,i|[r 



THE DOUBLE BOOTER RDM— Plugs into l>ie emply DS Sockel on Ihe Apple molhcr 
Ixiardoi irtelnlagar ROM Caid lo piovtde a l3sBclorboot wilhoul using the BAGICs Di^k 
DouEleBoolei may also Be used in the MOUNTAIN HARDWARE BOM PLUS Board Tliis 
chip will nol woih in a plus macfiine ynlB55 il corilains an Inlegei board or a ROM Pius 
board iM 00 

DISK STIX— Conlains 10 dojen diskette labels «il" either 3.3 or 3.2 dasignation Buom 
lor program names and type also S3 98 

• *■■****•*• *SOFTWAHE >**it»*it***>V 
SUPERSEA WAR— Hires bailleship lype simulation , S13 SS 

ULTIMATE XFER— A telephone sollwaie transfer program, uses DC Hayes Assoc 
micFOmodem I2S.00 

nOADRALLYG — Hires driving gan>ewilh 5 dillereni full screen Iracks £15 00 

MISSILE CHALLENOEK- Hires arcade type gsme wheie you defend you' cities Irom 
falling missiles. B levels & wiiIbs name & high score lodisk $19.95 

SUPER PIX— Hires screen dump lor the EPSON MX-80, imierseor normal, larger ilianlull 
page graphics in 3 oiientalrons Needs Tymac PPC 100 Printer board or we *iH upgrade 
your EPSON Board lor SZ5 139 95 

GRAPH -FIT— A hires graphing program iliat produces Dai char Is, pie cliarts and line 
graphs, Hasauloscaiingfealuretoo S2^ 00 

^■■■i^STILL MORE APPLE GOODIES^^"^™ 

JkPPLE KEYBOARD SYNTHESIZER— 49 nols (C Id C) AGO Keyboard wilh 3 aawlooth aq wS^re 
shapers, 3 audio oscilalors, 3 low pass FrilerSi A-&4 oDinI s^ape controfiefs, 2 «nvekipQ 

genefHiors Comptele syalem S99G 

KEVBOAftDONLVwimApptelnteiTace ,..,. $ed9 

QflAPHlCMOTEWmTEB— HifearKJtewtrielofdvnirwgtfefavatem *99 

SUPEn-PIX (Tm^Hirea screen aup^p Inr OK( WiciD^e 80. B?. 83 PrlnlefS. Same learur^ as 

super Du Needs Tymac PPC- 1 00 auBrd ... $24 95 

NIBBLES AWAV— The EjeeT dr^h bach ud progiani lo dale Allows you lo m^e backup^ dI mos: 

every dsh evei pioducei^ fo' ihe Apoie Over 1 user delined perameiera including sync^Qn\zeti 

( urisynchianLjed copies fia well as automahc haH hacKmgaiid raw dare bangfei , . SS9 

Calg0i-&39347fllor 



EVER WONDER HOW YOUR APPLE II WORKS? 

QUICKTRACE wUI show you! And it can show you WHY when it doesn't! 

This rslocMable program Irsces end displays Ihe aclus^ machina operalions. wtjifs Li Is running ertti 
wjlhoul Inlerf erf ng with Ihaaa aporatlons, Lool< ai these FEATUtlES: 



Slnolt-Sttp modB displBfS Iha last inslractioti. 

ne/t Instruction, rggrslsrs. ftags. slacft canlenls. 
H/irf Sfji usar-OefinaliSe matnoiy locations. 

Trmcv mode givas a ronnlng Oisplay oi ffie Stngle- 
Siep Infotmation and con be made to sTop upon 
Brrcounteiing any of nine user-detinabta 
conditions. 

Bmckgraund mode permits tracing wlift no disptay 
untii it is desired- Debugged loutlnss run at near 
norma/ speed untii one oi tha stopping cond- 
itions is met, wtiicfi causes tha program lo return 
io Single Step. 



QUtCKTfUkCM eliows changas ro tlte stacli. 

r^^istftrs, slopping conditions, addresses to ba 
displayBd, and output dastinatians lor alt this 
intormalian. AH ttiis can ta done in Single-Stop 
made vrMla lunuing. 

Two optional dimplmy tormatw Oan show a secjuance 
al opaiatians at of?ce- Vsuaily. ihe intfumaiion 
Is gi/an in foot lines el tho bottom ol the scresn- 

QUICK TRACE is completely transparent to Itte 
program being traced- it wiH nol inteitaia with 
rhe slack, program, ort/O. 



OUICKTRMCE is rMocatatilo fo any tree part ot 

memory. Its output cart be senf ro any slot or lo 
Itie screeFT. 

OtJlCKTHAC£ IS completely compatlbia wi'rh 

programs using Applasott and Integer BASiCs, 
graplilcs, and DOSr (Tima dependent DOS 
aperatiofis can be bypassed^} It wili display th« 
graphics on ttjs screen white QillcKTMkCE is 
aiive. 

QUICKTRACE is a beauUrul way to show the 

Incredibly complex seffuenca ol operations thai 
computer goes tttrough in executing a ptogrsm 



Pricn: SSO 



P mddni'R of Avili* Syslame. fjic. 



OUICirrflACC requites 354a [*E00) bytsB{lfl pagfts) ol tnemory and soma Itnortf edge oJ machine langu age proBramming. 
II wiU tun on any Apple il or Apple tl Pius compuler and can be loaded Irom disk or lape, fl Js auppfied on disit wJlf) DOS 3.3. 



This long ovardue device will switch any electrical 
signals, either Irom two inputs Inio a single output, or 
Irom s single Inpul Into either ot two oulpuls, 

ThB FLIPPER Is usually uaed to switch belwaen 40 
and SO column video disptays, |Dur word processor, 
The ExecutLve Sacrelary, supports it autDmatlcally-) 

The PLIPPER can ewilch your monitor batwaen the 

ApplB display and video tape, disc, or tuner. {Great 

enhancement tor sorting roulinest) 

The FLIPPER mounts on Ihe 'game bus', yet iaaves 

II Iree. 

The FLIPPER Ic evaliable with the Apple shill key 

modilicatiDn airaady In piece. It lequireB no soldarinfl, 

does not void your warranty, and mounts In seconds. 



+ 



price, without shiM key mod: 
with shilt hey mod: 



tso 

15S 



The mSertace Ihal provides Ihe most remtulion- 
sry means of intormat'on lelfieuat since She 
printing press ty combining these important 
technologies: 
Ij the Apple II computer, 
2) Ihe Pioneer VP-WOO isser Video Disc, 
31 ana the Color Television 
The OMNI5CAN interlace is useO lo control 
Ihe Pioneer LaserDisc player in an interactive 
v^ay, with software running an the Apple tt 
computer. The system can dispiay information 
wilh color, motion, and stereo or bilingual sound 
undBi program control. It can leach, review, test, 
and grade material while allowing for individual 
learning rates. The branching capability of Ihe 
compuler gives unlimited ileitibility in program- 
ing a learning seouence. 

Ptica: I £50 



Alto from Aurora... 

VmrmMctIC {a Visicalc entiancBmont) 
Th* fxecu'lira Sacrtlary 

(woril processor ex troordln aire) 

Tha Rmntml Manager 

Itenlal propB't/ management} 
Th*Ptrlormanca Managmr 

tan assessment ol your work! 
Hmbratrll { \\ H' ~\2.y J 
Mducallonmr Pragrama 

(with emphasis on high school} 

aurora systems, inc. 

2040 East Washington Ave. 

Madison, Wl 53704 

(608)249-5875 

□uickTratfl, On»ni3can, andIi*oPlflHi''"an[;e Wansijiii afeKfldemarlis 
of AuFDiB Sy9(emg. Inc Tha Ht-nlah Wansgar is a [rMflmarK ol Unnay 
TmSyBlfldiAi Inc. The E-atiJU-O Secffllaiy »s a [pmlomfir*: ol ParEHfiai 
OuHJnH&a Sialai^), I'k Visicalt 14 » Ifaaemark ol Pcrionit SaPlrtare, 
IfK FlIppEF »B a iiHaeman. ol InBlrumenl InlflTacps. Inc flppltf II la a 
lr«nentaFkol Apple C(*iTiOu(er loc VP-10QO LiMrDiac is a iiddQiHitrl: ol 
pjC»rifler US4, Inc 
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OS-9 and the 6809: 
Revolutionary Tools 



M 



r\ 



The Motorola MC680g 
microprocessor incorporates 
advanced architectural design 
features that make it a highly 
powerful machine. The 
MIcroware OS-9 operating 
system is an advanced software 
package designed to fully 
exploit the powerful features of 
the 6809. This article describes 
the highlights of OS-9, Its 
concepts, its features, and Its 
supporting software systems. 



Brian Capouch 
RR #2. Box 525 
Whealfield, Indiana 46392 



On the Evotution of Tools 

PTogrammers who exclusively use a 
high-level language tend not to care 
about the characteristics of the micro- 
processor or operating system they use. 
This promotes situations where superior 
products suffer from apathy in the 
marketplace. For this reason I implore 
student programmers to try to look at 
their jobs from an automobile me- 
chanic's viewpoint. Even though a com- 
puter lacks levers and knobs that invite 
intuitve understanding, coining to grips 
with "what makes that thing tick" 
leads to a deeper understanding of the 
process of programming, and hence to 
better programs. 

From the earliest days of mankind 
we have been distinguished as "the 
animal that uses tools." A history of 
civilization is a telling of those tools we 
have developed, and the influence that 
they have had on the people who use 
them. Computers are tools that have the 
potential to drastically change our 
everyday lives. Plus, computers are 
changing and growing in time. In the 
world of 8-bit microprocessors, the cur- 
rent vanguard lies in the Motorola 6809. 



A History of 6809 and OS-9 

The 6809 is called a third generation 
microprocessor, and as such is one of 
those that has been designed after the 
beginning of the microelectronics revo- 
lution. The engineers who designed it 
began by drawing up a list of fimctions 
that they considered to be the next ma- 
jor advances in computer architecture. 
Then, they proceeded to perform an in- 
tensive analysis of code written for their 
second generation processor, the 6800, 
to see which instructions and which 
types of instructions were used most. 
Then they interviewed a wide cross- 
section of 6800 programmers to see 
what features they considered desirable 
in an advanced microprocessor. Only 
after this footwork was completed did 
they actually specify the 6809, 

Programming in 1978 was beginning 
to show signs of radical change. Along 
with the ascendency of the micro- 
processor came the realization that pro- 
gramming methods needed to be under- 
taken scientifically. Pascal became 
widely known, BNF notation was pre- 
sented to the programming public, and 
the unconditional branch fell into 
generally loud disfavor. All of these hap- 
penings implied a movement towards 
stiuctuie. And stmcture implies an op- 
position to entropy, which any physicist 
will telt you requires work. Even begin- 
ning programmers were exhorted to 
refrain from dashing off code helter- 
skelter, and those who did soon realized 
the price when they later attempted to 
modify or correct their work. All of this 
came at an opportune time for the 
designers of the 6809. They were able to 
incorporate these trends into the 
specifications for their new processor, 
and in fact design a processor aioimd 
modem techniques. 

At the same time that Motorola pro- 
duct engineers were laying out the 6809, 
they wisely looked ahead into the soft- 
ware arena and contracted, with the 
Microware Corporation, to develop soft- 
ware for the new processor. Because of 



this, introduction of software products 
that utilized the advanced features of 
the 6809 began concurrently with the 
introduction of the chip itself. 

Now I am fully aware that almost 
everyone considers the operating system 
that resides on his own computer to be 
the cat's meow — the hottest and most 
efficient system in the world. I call this 
the "emperor's new clothes" syndrome, 
and it is a powerful factor resisting 
change in the micro world. But our little 
world is growing. Hardware is now 
capable of performing tasks that would 
have heavily loaded a minicomputer of 
fairly recent vintage. Expecting archaic 
operating systems designed in the 
hobbyist days to take full advantage of 
modem hardware is a pipe dream of 
awesome proportions. I have worked 
with five operating systems in the past 
four years, two of them on sixteen-bit 
hardware. I feel that my software output 
has been greater in the six months I have 
used OS-9 than it was in the three and 
one-half previous years combined. It has 
a rakish logical simplicity that nearly 
defies description — it almost always 
does just what you think it will do, even 
when trying something for the first time. 

What follows here is a brief introduc- 
tion to the features of Microware's OS-9 
operating system, and a listing of high- 
level languages and processors designed 
to run on it. 

Majoi Features of 0$-9 

Motorola bills the 6809 as a "pro- 
grammer's dream machine," and I bill 
OS-9 as a "programmer's dream 
operating system." imagine for a mo- 
ment never having to bother with 
memory mapping, or with two programs 
that need to run in the same RAM space. 
Or imagine a 64K machine allowing five 
users to simultaneously run separate 
programs, yet also access common sub- 
routines and data files. Or perhaps hav- 
ing a program write data out to a line 
printer dining debugging that will be 
written into a file in its final version. 
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Figure 1 : General Memory Module 
Formal 



$00 
$01 
$02 
$03 
$04 
$05 
$06 
$07 
$08 



Sync Bytes i$87CD) 
Module Size (bytes) 

Module Name Offset 

Type ! Language 
Attributes ! Revision 
Header Parity Check 

(Execution Parameters 
and optional 
extensions are located 
from here upwardi 



header 

parity 



without having to change any code. All 
of these situations, and literally hun- 
dreds more, are possible with this ad- 
vanced operating system. 

OS-9 is based almost exactly on the 
functional specifications of UNIX, the 
multiuser operating system developed 
by the Bell Laboratories. UNIX is ex- 
pected to take the 16-bit world by storm 
when machines designed around the 
newer processors become widely avail- 
able. A favorite quote of mine is this one 
from a software engineer quoted in Elec- 
tronics magazine, who says that using 
UNIX is "like sitting behind the wheel 
of a well-timed sports car — when you 
press the gas, it goes, and when you hit 
the brakes, it stops. It's the ultimate in 
responsiveness, and yet all the time you 
are riding in comfort." 

One of the prime features of OS-9 is 
that all code, be it machine code, oper- 
ating system parameters, text, etc., 
must reside in what is called a memory 
module. Each module is self -relative, or 
relocatable, which is to say that it can be 
loaded into any sufficient area of 
memory that is cunently available. 
Modules are preceded, both in memory 
and in Hies, by a module header (see 
figure 1|, which tells the operating 
system about certain features of that 
module, such as its name, size, intended 
use, and so forth. 

A particularly powerful feature is the 
Attributes-Revision byte. The left nibble 
of this byte controls the types of access 
that may be made legally to the modiUe, 
The right nibble is a revision number. 
Whenever a load is performed from peri- 
pheral storage, the operating system 
first checks to see if that module is 
aheady in memory. If it is, revision 
numbers are then checked. The module 
with the highest revision is then allowed 
to stay in memory. This means that 
code located in ROM can be overlaid by 
modified code without having to resort 
to reprogramming the ROM. It is very 



handy for customizing operating system 
modules, or for interim fixes for bugs. It 
should be noted that the module format 
is the only way that memory can be 
managed by OS-9, and that self-modifying 
or non-relocatable code is not permitted. 

The OS-9 user interacts with the 
operating system through a program 
called "Shell," This works exactly like 
UNIX, with the Shell being a command 
interpreter that orders up operating 
system functions as required. It 
minimizes the knowledge the user must 
possess of the iimer workings of the 
more complex system capabilities. For 
instance, any program may be nan in 
one of two basic modes; sequential or 
concmrent. While executing programs 



sequentially, the Shell waits for one pro- 
gram to finish before beginning another. 
When a system command is suffixed 
with an ampersand {"&") the Shell in- 
terprets this as a request to run that pro- 
gram concurrently, or in the back- 
ground. In this case the Shell returns 
almost immediately for another com- 
mand, while the concurrent program 
runs simultaneously until it finishes. 

Shell commands can call machine 
code modules, high-level language 
modules, or groups of Shell commands 
(procedure files] . If the module language 
is not object code, the proper high-level 
language or processor is automatically 
loaded to run the module. 



Figure 2 ': Explanation ol Header Values 



Module 
Offset 

$00,01 



$02,03 



$04,05 



$06 



$07 



Description 

Sync Bytes 

These unused 6809 opcodes are used by 
OS-9 to automatically locate modules. 

Module Size 

Overall size of module in bytes, in- 
cluding all header and CRC values. 

Offset to Module Name 

Address of module name relative to the 
start (fust sync byte] of module. The 
name may exist anywhere within the 
module and is made up of a string of 
ASCn characters. 

Module/ Language Type 

Values of Module Type Nibble; 
$1 - Program Module 
$2 - Subroutine Module 
$3 - Multi-module 
$4 - Data Module 
$5/$B - User-defined 
$C - OS9 System Module 
$D - OS9 File Manager Module 
$E - OS9 Device Driver Module 
$F - OS 9 Device Descriptor Module 

Values of Language Nibble: 

- Data 

1 - 6809 Object Code 

2 - Basic09 I-code 

3 - Pascal P-code 

4 - COBOL I-code 
5-15 - For future use 

Attributes /Revision Byte 

Value of upper four bits of this byte in- 
dicate usage attributes, at this time on- 
ly bit 7 (m.s.j is defined — when set 
indicates module is "sharable" [re- 
entrant code) 

Lower four. bits indicates revision 
number from 0-15 
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Interfacing with the World 

Input and output operations per- 
formed on OS-9 files are simplified by a 
pair of conventions: all devices look to 
the operating system exactly like files, 
and all files look to the operating system 
like a stream of bytes. This is a good ex- 
ample of logical simplicity in action. 
Thus a program written to use a disk 
data file may be debugged by replacing 
the file name with the name of a line 
printer, or conversely, output destined 
for a printer can be spooled to a disk file, 
which may later be "listed" on the 
physical printer. 

The "stream of bytes" convention 
means that all structure imposed on 
data must be done by programs, and 
thus programs need to be aware of how 
data is structured. There is no difference 
to the operating system between random 
and sequential files. The operating sys- 
tem maintains a moveable pointer to the 
next byte to be read or written, all other 
record manipulation is left to programs. 



Programs running on OS-9 are 
assumed to use "standard" data paths, 
In the default case input is expected to 
be provided by a terminal keyboard, and 
output is performed to its CRT display. 
The Shell allows a set of "pseudo- 
commands" to redirect these standard 
paths to any file or device. (Remember 
that they are the same to the operating 
system!) This means that programs can 
be written to use these standard data 
paths, and the paths can be redirected, at 
run time, to any file or device. Path 
redirection enables a single program to 
function both as an interactive processor 
using terminal input and output, or as a 
batch processor driven by disk-boimd in- 
put command files. As an example, to 
see a listing of the text file containing 
this article on the CRT screen, I would 
type: 

list micro article 

If, instead, I wish the listing to appear on 
the line printer instead of the terminal 
display, I type: 

list micro article > /printer 

where "/printer" is a pathlist that 
describes the printer that I wish to use to 
the operating system, and "> " tells the 
operating system to redirect the stan- 
dard output path for that program. A 
disk file could also be u.sed as the object 
of this redirection. The slash character 
I / ] is used to delineate elements of a 
path so that the operating system can ac- 
cess the desired data. 





Figure 3 .-txampie ot Redirected Output 
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4A4 


memmod 





81/07/26 2323 


wr 


1A6 


4DE 


mod explanation 





81/07/26 2333 


WI 


lAC 


420 


bio 



Example of Redirected Output 

Thisis the extended output of the operating system "dir" utility. Normally this 
information would be displayed on a CRT terminal. In this case, however, it is 
redirected to a line printer, and in the example Basic09 procedure, it is 
redirected to a disk file, which is then processed by the "copy" utUity. 



File stracture under OS-9 consists of 
a hierarchical system of directories, 
again much like UNIX. OS-9 recognizes 
only one special file type, and that is 
directory. There is a bit in an attribute 
byte in each file that marks a file as a 
directory. Entries in a directory file can 
themselves be directories, ad infinitum. 
Paths to data can pass through an un- 
limited number of directory fUes. 

Rather than spend several pages try- 
ing to describe this concept, it would be 
better to illustrate it with an example, 
and at the same time illustrate the use of 
several system utility programs. In this 
example I will create a backup data 
directory as a "child" directory of the 
main data directory. I wUl then copy my 
article-file into the backup directory 
from the main directory. Let's call the 
original data directory "work." First, 1 
must use the system utility "makdir" 
to create a new directory: 

makdir /work/work__bak 

Then I "copy" my data into it: 

copy /work/micro article 

/work/work bak/micro article 

Note here that most often these names 
would be prefaced by a name signifying 
a physical disk drive unit. For instance, 

copy /d1/work/micro article 

/d2/work bak/m icro 

copies the file located in the directory 
"work" located on disk drive one into a 
directory named "work^bak" located 



on disk drive two. At the same time, the 

name is changed from "micro article" 

to "micro," 

Any user at a given moment is 
assigned to two directories. One, the ex- 
ecution directory, contains operating 
system utUities, command files, and so 
forth, that operate on the user's data. 
Most of the lime all users will share a 
single execution directory. The other, 
the data directory, contains data files, 
program source code, and so forth. 
These assignments can be changed on 
the fly by a shell pseudo- command, or 
by most of the high-level processors. 
Generally each user will be assigned to 
his own data directory. This allows 
several users to maintain files using the 
same names without crashing the oper- 
ating system. Hierarchical data struc- 
turing is a powerful tool that corre- 
sponds with intuitive understanding of 
the real world. 

Sundry Information 

There is no limit set by the operating 
system on the number of programs (called 
"processes"] that may run concurrent- 
ly. Of com:se, it will never be possible to 
use more memory than that available at 
any given instant, so this, in fact, does set 
a limit on the number of simultaneous 
processes. Also, repeatedly loading and 
unloading small modules may cause 
memory to become discontiguous. For 
instance, if a user loads the directory list 
"dir" comirrand, then another user 
loads the free memory "mfree" com- 
mand, when the first user unloads his 
program there will be a "hole" left in 
memory. That hole may or may not be 
closed when the second user finishes 
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with "mfree," dqjending on what has 
happened in the mean tune. Because 
memory used to hold a module must be 
contiguous, decay of the free memory 
area sometimes requires re-booting the 
system. This limitation only holds true 
in the Level One version of OS-9,- the ex- 
tended Level Two version automatically 
manages memory to avoid this situation. 

Any process may spawn another pro- 
cess at any lime. A Basic09 program, for 
instance, may send a listing file to a 
print spooler, requesting that it be run 
as a concurrent process. If sufficient 
memory exists, the program can go right 
along with its business, with the spooler 
program running at the same time. It is 
also possible for users to assign priorities 
to their processes, which are used by the 
operating system's scheduler to deter- 
mine the frequency and duration of the 
time slice that each is given. Thus, pro- 
cesses that are interfaced with a user 
who must wait on the system may be 
given a higher priority than those which 
can run in the background, allowing for 
optimization of human time spent inter- 
acting with the machine. 

"Type-ahead" is fully supported by 
OS-9, What this amounts to is a logical 
separation of the keyboard and display 
functions on a typical terminal. When 
interacting with the system, it is possi- 



ble to enter commands as fast as they 
can be typed. While a given line is being 
processed, OS-9's input handling rou- 
tines save input from the keyboard in an 
invisible buffer, which acts as a queue. 
This queue is then acted upon, one line 
at a time, as programs request input. 
The display is unaffected by the key- 
board during the time a program is 
acting on a command. Other operating 
systems which boast of having type- 
ahead do not manage the screen display 
in the same way, and even though com- 
mands can be entered rapidly, often the 
display becomes virtually unintelligible 
since each character is displayed as it is 
entered. Type-ahead lets you rapidly in- 
put a series of commands, then sneak a 
cup of coffee while they are being pro- 
cessed. It is a very powerful capability in 
the hands of a competent typist. 

This quick overview does not give 
justice to the true power of OS-9, which 
must be experienced to be understood. 
The documentation provided by Micro- 
ware is voluminous, consisting of an 
88-page user's guide, and a 156-p3ge 
System Piogiammer' s Guide. The user's 
guide serves as a tutorial introduction to 
the system, while the System Piograxn- 
mer's Guide explains in great detail the 
inner workings of the system to allow 
for customization. Included in the 



System Piogiaminei's Guide are source 
listings for a variety of system modules, 
both to increase understanding of the 
system and to illustrate programming 
conventions [such as the module con- 
cept], that allow for OS-9's unique 
power. Microware also maintains a 
hotline that is marmed by a staff pro- 
grammer during all business hours. 

An operating system by itself, no 
matter how powerful, would be a weak 
tool indeed. In this respect, Microware 
has introduced an entire family of inte- 
grated programs that serve as a complete 
tool kit for the modem programmer. 
Foremost amongst them is Basic09, 
which Microware calls a "high-level 
programming system," instead of a 
BASIC interpreter or compiler. This is 
because Basjc09 consists of an inte- 
grated package of programs that include 
an interactive text editor, a line-at-a- 
time or batch compiler, a run-time in- 
terpreter that executes optimized 
"I-codc," and an integral debugger that 
allows for program tracing, inspection of 
variables, etc. 



I've included here a teaser source 
code listing of a pair of Basic09 "pro- 
cedures." These programs extend the 
operating system "copy" utility to 



Your i4pple too slow ? "^ 
Not anymore. .. 



Now you roo can write 6809 progroms tor your Apple II rhot ore 
DOS 3 3 compaiible. Bur you don'r hove to stop theie, you con 
also piogtomyout Apple lis 6502 and the 6809 of THE MILL to run 
SMULTANEOUSLY. 

THE ASSEMBLEU DEVELOPMENT KIT including THE MILL, is o full 
feolute ossembler, designed ro use the text editing system of your 
choice. The system will also boost your computer programming 
producriviiy, since (he 6809 is today's easy ro leorn ond program 
computet Toiie advantage of the 8-bii 6502 and the 16-bir 
abilities of the 6609 running at the same time cteote your own 
MUmPROCESSING ENVIRONMENT on the Apple II. 

PutTHEMILL into your Apple II and get power, performance and 
price motched by no orhei petsonoi computer. 5TELLAT10N TWO 
offers o full 1 yeor wotronry ond a 60 day money bocK guotoniee. 
if you're not completely satisfied wirh the power of THE MILL 

Shop around, then compore rhe setvice. quality, ptice ond 
poweiofTHEMILL. Toiiethisod ro your local Apple Deolet ond see 
the endless possibilities of adding THE MILL ro yout Apple 11. 





THE MILL Ironsfcffms the Sbii Apple II 
into o computer thot octs like a 
16-biimochine. THEMILLhos 
11 que harcJ~yare feotures iliQi 
peimit the 6909 to run at full 
speed (1 megohetrz) and 
allow the 6502 ro run ot 
20%of itsnotmol 
speed — 

T THE SAME TlMEi 



Find our about 
THE Mill ond get 
involved wiiti the 
hottest Item on the 
petsonoi computer 

morltet today. 

No existing personal compurer 
con give you rhe power, 

peiformance ond price of THE MILLS 

6809-6502 combination. 



P O. BOX 2342 - OS 
SANTA DAI\DA)\A. CA. 93120 
(805)966-1140 



Apple II 
IS Q rrodemol^ 
for Apple Compurer, Inc. 
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enable it to copy all the data files in a 
given directory into any other directory. 
Note: the hex numbers at the left in the 
listing are not line numbers, they are 
"]-code" addresses that show where a 
given line compiles into memory, rela- 
tive to the beginning of the procedure. 
Also, procedures may call other pro- 
cedures and pass parameters to them; 
this is what is done in calling 
"check__dir." Also, dimensioning of all 
variables is not required, but is generally 
good programming practice. 

Other programs in the Microware 
line include a traditional Macro Text 
Editor, an Assembler that produces both 
OS-9 compatible modules and MIKBUG 
compatible object code, a high-level 
debugger, the Stylograph text processing 
system, and a Pascal compiler. In the 
works, and scheduled for release in the 
near future, are both COBOL and C 
compUers. Several large applications soft- 
ware houses are supporting OS-9, and a 
number of excellent applications pro- 
grams are now appearing on the market. 

No system, no matter how advanced, 
is without its faults, and it is only fair 
that I relate a few reservations along 
with the praise. First, in the past, 
Microware has had a tendency to be 
overly optimistic when scheduling 
release dates for their software products. 
The original Level One OS-9 was an- 
nounced to be available in fune of 1980 
and was, in fact, first delivered 
sometime just before January 1, 1981. 
Because of this they are now refusing to 
promise exact dates for the delivery of 
upcoming products. 

Also, I have personally had quite a 
time coming to grips with the redirected 
I/O feature of the Shell processor. Let 
me forewarn users that when redirecting 
I/O, the system looks for all input to 
pome from the redirected input file, and 
writes all output to the redirected out- 
put file. If several concurrent processes 
come to be "reporting live" into a single 
user's terminal, watch out! If I had it to 
do over, I would have spent a lot more 
lime experimenting with these features 
before proceeding to develop applica- 
tions programs. 

Sometimes the error messages gener- 
ated do not describe the error that has 
occurred. I appreciate the fact, however, 
that an exhaustively descriptive list of 
errors could run well into the hundreds, 
and that lines must be drawn some- 
where if software is to be released. 

Another positive aspect of OS-9 that 
bears mentioning is the wide range of 
hardware that it has been designed to 
support. Right now it is running on no 





Listing 1 






PROCEDURE directory copy 






0000 


C 






0003 


C 






0006 


(• Source Listing of Full Directory Copy Utility 






0036 


(• 






0039 


(• OS-9 Prograranier's Tool Kit Program No. 3 






0061 


{• Version 1.2 






0072 


(• 






0075 


C« 






007 B 


(• All commercial rights reserved 19B1 






009E 


(• Oikoa Systems Company 






00B6 


<» 






00 B9 


{• 






OOBC 


{• Allocate Variable Data Storage 






OODD 


(" 






OOEO 


DIM data line ; STRINC[ 120] ; argument :STHING[8D] 






00F7 


DIM from name, to name, from dir,to dir:STRING[30] 






010F 


DIM clear:STRINGT2]i inkey ;STBINCTl ] ; clearchar :STflING[3] 






0131 


DIM dpath.indexl :INTEGER 






013C 


DIM verify, exists, OK:BOOLEAN 






014B 


(• 






OIHE 


(• Next two lines control Soroo IQ-120 






0571 


(• 






0177 


clear=CHfi$(27)t"*" 






0183 


clearcliar = CHRS(8)+CHR$(32)*CHR$C8) 






0193 


(» 






0196 


(» Softstart Point; Initialize Default VarialMea 






01C6 


(• NOTE: BaaicOg does NOT initialize varlablesHt 






01F7 


(• 






01 FA 


verify=FflLSE 






0203 


(• 






0206 


(• Print Banner 






0215 


(• 






0218 


PRINT clear 






021D 


PRINT \ PRINT \ PRINT 






0223 


PRINT "FULL DIRECTORY COPY" 






02«C 


PRINT 






024E 


(• 






0251 


(■ — Get J Verify Parameters 






025D 


(• 






0270 


(• Source Directory 






0287 


(• 






028A 


INPUT "Enter pathlist of desired source directory ",fron_ 


dir 




OSBD 


RUN check dirCfroro dir, exists) 






02CC 


IF exlst3:FALSE TH^N 1 






02DA 


PRINT 






02DC 


(• 






02DF 


(• Output Directory 






02F6 


(• 






02F9 


INPUT "Enter pathliat of destination directory ",to_dir 






0329 


RUN check dir(to dir, exists) 






033B 


IF exiStS=FAL3E THEN 1 






0316 


PRINT 






0318 


(• 






034B 


(• Shall we verify??? 






0364 


(• 






0367 


PRINT "RETURN^No verify-flNY OTHER KEYzVerify "; 






0392 


GET #0, inkey 






039B 


PRINT clearchar 






03A0 


PRINT 






03A2 


IF ASC(inkey)^$00 THEN 






03B0 


verify=FALSE 






03B5 


ELSE 






03BA 


verify=TRUE 






03CO 


ENDIF 






03C2 


[• 






03C5 


(» — Write source directory into list file on drive 






03FA 


(• 






03FD 


argument:"dir e "tfrom dir+">/dO/dirlist" 






0410 


SHELL argument 






0422 


C 






0425 


{» —Open list file 






0438 


(• 






043B 


OPEN #dpath,"/d0/dlrli3t":REflD 






0M51 


(• 






0454 


FOR indexl=1 TO 2 






0464 


(» — Skip header lines 






047A 


READ ffdpath.data line 






0484 


NEXT indexl 






048F 


(• 






0492 


FOR indexUl TO 100 






04A2 


(• — Copy up to arbitrary limit of 100 files 






04CE 


READ ffdpath.data line 
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is blank, leave loop 



EXITIF data_line="^ THEN 

(• — Last line of file 
ENDEXIT 

IF HID$(data_line,?2,1)="-" THEN 

{» — Dash in position 22 means non-directory file, 

therefore copyable 

{» — Filename begins at position 19 
froni_name^RlGHT$(data_line,LEN(data_line)-«8) 
IF verify=TRUE THEN 

(• — See if operator wants to copy 

PRINT clear 

PRINT 

PRINT "Ready to copy "; from name 

PRINT "RETURN=Proceed with copy-ANY OTHER KEY=No copy " 

GET flO,lnkey 

PRINT clearohar 

PRINT 

IF ASC(inkey)=$OD THEN 

(* — Copy if a carriage return 
OK=TRUE 
ELSE 

0K=FflL3E 
ENDIF 
ENDIF 
(» 
IF verify=FALSE OR verify=TRUE AND OK:TRUE THEN 

(• — If everything is cool then copy, else skip to next 

line 
PRINT "Copying 

argument="copy 

+from_name 

SHELL argument 

ENDIF 

ENDIF 

index! 



0ilD8 
04E4 
050F 
0513 
0525 

056A 
058D 
059D 
05A8 
05CA 
05CF 
05D1 
0gE7 

061B 
0624 
0529 
05 2B 
0539 
0657 
055D 
0561 
0567 
0669 
066B 
066E 
0685 

06C1 
06DC 

07011 

0709 

D70B 

070D NEXT 

0713 (• 

071B t* — Close up shop 

072D (" 

0730 CLOSE tfdpath 

0736 SHELL "del /dO/dirlist" 

07119 END 



; from_name; " to ' 
i-Crom dir + "/"+frora 



i to_dir 
name+" "+to 



dir+'V" 



Problems of machine and memory loca- 
tion dependence require the reworking 
of most software even when transport- 
ing among systems using the same pro- 
cessor. Heartache caused by slapdash 
programming, while more nebulous, 
consumes untold hours of programmer 
time when software must be adapted or 
repaired. The Motorola MC6809 micro- 
processor takes a giant step forward in 
solving this crisis, and it is used to its 
fullest in conjunction with Microware's 
revolutionary systems software. 



Brian Capouch runs a farm consulting 
business in northern Indiana. He works on 
applications software for farms and small 
businesses, writes for newspapers and 
magazines, and teaches high school data 
processing 



J 



fewer than five different hardware con- 
figurations, and several different bus 
designs. Many hardware development 
people tell me that they are working 
furiously to implement OS-9 on their 
particular configurations, so I assume 
that the list of supported hardware will 
be increasing substantially in the future, 
This is enhanced by Microware's will- 
ingness to sell source code for almost 
the entire system. At first 1 thought that 
this was a crazy notion. Now that I see 
Tandy introducing a 6809 processor in 
the Color Computer, and several outfits 
working to produce a 6809 board for the 
Apple, the logic becomes easier to 
understand. If OS-9 is going to reach its 
fullest potential, it is going to have to be 
used by a very large number of program- 
mers. This would not be possible if 
Microwarc had to implement each and 
every customization itself. Plus, ad- 
vanced users feel far more comfortable 
with systems that are supported by 
source code than by the virtual "black 
boxes' ' that other vendors are supplying, 
and this can only lend to the support 
that OS-9 will gain. 

It does not take too long a perusal of 
the literature to discover that experts 
feel we are suffering a "software crisis." 



PROCEDURE 
0000 
0003 
0006 
0039 
003C 
0069 
0077 
OOBS 
O0B5 
OODB 
00F3 
00F6 
0118 
012A 
0131 
on"! 
0150 
0153 
0159 
015C 
016F 
01A3 
01C2 
01C5 
01D1 
01D7 
OlDA 
0212 
0215 
021B 
021D 
022A 
025E 
0261) 
0266 
0268 

om 

02A5 
02AB 
02AD 
02AF 
02B2 
02DA 
02DD 
02E3 



Source listing of Valid Dlreotory V«rlfr Routlna 
3 Tool Kit Procedure No. 3 



check 

■ 

■ 
■ 
■ 
■ 
* 
I 
« 
i 
■ 



dir 



Listing 2 



OS-9 Programmer' 

Version 1.0 

NOTE; THIS VERSION 



NOT VALID IN HULTIUSER CONFIGURATIONS 



All Connercial Rights Raserved 1981 
Oikos Systems Company 



-Allocate Variable Date Storage 
ARAH directory naraa:STRINGC30] ; exists: BOOLEAN 
DIM dpath:INTEGlH 



■ 
ON 

* 



-Set error routine vector 

ERROR GOTO ID 

Try to open file 

-Note:This operation uill always result In error 
if file is a directory 



OPEN «dpath, directory nameiREAD 
CLOSE fdpath 



If we sot this far, It's a data fila—not dlreotoryfl 



10 



exists=rALSE 

END 

IF EBR=214 THEN 
(• -This error 
eiclStszTRUE 
END 

ENDIF 

IF ERR=216 THEN 
(• -This error 
exist3=FALSE 
END 

ENDIF 

(• 

(• -Next line is 

(• 

existszFALSE 

END 



is returned If file is dlreatory typa 



Is returned if there is no such fila 



a precautionary neesure 



\ 



\ 



JUCAO 
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GET 120% VALUE FOR YOUR 

PROGRAM PURCHASING DOLLAR 

WITH 



MORE THAN JUST A DATABASE 

Version 2 of the versatile Modifiable Database 



^a-7'J 


f-, ■, 


o, 10, 


"-"-^ 


8 


K-"- 


-A 


Bi 


I^S^F^" ' '^ ' ' " 


H„ ..^ 


1 


■^ \ , i» 


3-: 






*RESS HIIV MIp 







DATA PLOT 
& ANALYSIS 



Data mav be plotted n a variety 
ot formats such as scatter graphs, 
line graphs, bar charts, and pie 
charts. 

Rariges, minimums, manirriums, 
means, standard dpuiations, cor- 
relation coefficients, etc. of any 
number of data file$ can be 
calculated i 



REPORT GENERATOR 





o 
o 



/ 



POWERFUL 
DATA MANAGER 



NFORMATION 
MANAGEMENT 



■ Versatile, user definable database can 5torp 
data segmented by up to 3& luflds. 
' User oriented format is ea^v ^o' the novice 
or professional to utilize. The use of menus, 
extensive prompting, single kev^troke com- 
mands, and a universal escape capabilifV alloiiv 
anyone to store or retrieve information in 
seconds without errors. 
■ Machine language searches and sorts operate 
in a fraction of the urne required by other 
programs. 
■ Searches or sorts, subtotals or totals may 
be performed on any field at any time, not 
just on those that are indexed or specified in 

advance. 

' Search results may be displayed, printed, 

deleted, counted, totalled, edited, and/or 

^av?d to a new data file. 



OTHER FEATURES 




■ The sophisticated repnrt generator allows 
you to format your dala output in an infinite 
variety ol ways. 

You can prini form letters, columnar 
reports, hst$, niailing labels, etc, 

■ Data, ratios or The results ot calcL)ations 
can be embedded anywhere m your tetters or 
reports. 

The report generator gives your output the 
professional appearance that you require. 



SYNERGISTIC SOFTWARE 

ORDER YOURS TODAY! 



Floopy Drivfl version $220.00 — Hard Drive version $220.00 

Available from your local dealer or send check or money order to Synergistic Soft- 
ware. 5231 120 Avenues E., Bellevue, Washington 93006 or phone 206-326 3216. 

Washington residents add bA% sales tax. 
Apple IS a trademark ol Apple Computer, Inc. 



- HARD DISK DRIVE COMPATIBILITY 

VtfUh hard drive version, work? with Corwus 
and other hard drivQs. 
■ yVork? with all Floppy cJrive^ with alpi. 
drive and volume seiectJon. 
■ You can append or merge up to a full disk 
of data files, or segment your data mto sep- 
arate flies by a search key. 
■ Searches can contain up to 10 levels. You can 
search for a key word m any field, the absence 
of a keywords or a number being wvuhin a 
specified range. 
' GLcbal editing of data may be performed. 

■ Arithmetic processing can be performed 

during record entry, edit, or output. 

■ Record entry, edit, or deletion [individual 

records or blocks) can be performed iivith no 

tedious delays wailing for disk accesses, index 

file updates, etc. 

- Data may be stored on any number of floppy 

or hard disk drives 

' Data files can be reformatted at any time 

without reentering the data 

' With $5-00 Registration Fee receive one 

backup disk. 

■ The package requires an Apple II plus or 
Apple II with Applesoft firmware, 48K RAM, 

ai least one disk drive, and DOS Z.3. 
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Ihe A2-GE1 
Graphics Editor 

forthe 
Apple II 



The A2-GE1 Graphics Editor is a collection of 
programs designed to put the power of A2-3D1 
and A2-3D2 graphics in your hands. 

TheA2-GE1 includes Object Editor, Motion 
Programmer, Motion Playback. Slideshow Play- 
back, and a special A2-3D2 interface for BASIC 
programmers. 

With Object Editor you can create whatever 
objects you want in the colors of your choice. 
You can alsotypein whatever 3D text you want, 
and in different sizes. And saving an object is 
as easy as naming it. 

Then give the object names to Motion Programmer 

and see how the beautifully laid out keyboard 
controls will let you switch objects on or off, 
animate them, or add upper or lower case 2D 
text mixed right in. 

You can also record your entire presentation, 
animation and all, for later use with Motion 
Playback, or just take "computer snapshots" 
of scenes with Slide Show Playback. 

We've reached our goal of giving you the most 
sophisticated graphics utilities in the market- 
place ... 



Convenient 
graphics power. 



I 





See them now at your dealer! ■ 



being cohstrLJ 



©[U][o)LJOGIC 

Communications Corp. 
713 Edgebrook Drive 
Champaign, IL 61820 
(217)359-8482 
Telex: 206995 

Apple istne regislered Iradeniarh of Apple Cornputer Inc. 



A2-GE 1 Graphics Editor 

$34,95 on disk (48K and 
A2-3D2 required) 

A2-3D1 with 3D2 Enhancement* 

$84.90 on disk (48K required) 

■3D1 owners may update to 3D2 for $24.95, Contact SubLOGIC 
tor details. 



For direct order, mclude$3for UPS or $5 for first class mail delivery. 
Illinois residents add 5?i sales tax. Visa and MasterCard accepted. ' 



Apple II Digital Storage 
Oscilloscope 



h 



Use minimal hardware, 
Applesoft BASIC, and 6502 
machine language to convert an 
Apple II into a triggered digital 
"storage oscilloscope." 



Ellis Cooper 

200 West 14th St. 

New York City, New York 1001 1 



This article gives complete details on 
building a peripheral card that fits in slot 
#7 of the Apple H computer. The card 
has an audio frequency huffer and atten- 
uation circuit, plus a very easy-to-use 
analog-to-digital converter which is 
capahle of sampling the signal every 25 
microseconds. The software is a com- 
bination program of Applesoft BASIC 
and 6502 machine language. It prompts 
you to initiate an audio input, then 
waits for it. It has a trigger threshhold. 
When the signal level exceeds the 
threshhold, the circuit takes 19,600 
samples spaced about 40 fiS apart, stor- 
ing each one in upper RAM (starting at 
$7370 in a 48K spacej. Then a high- 
resolution plot of the first 280 samples 
— one screen — is displayed. 

The caption beneath the screen-plot 
gives start and stop times of that screen 
in milliseconds. It also prompts you to 
push certain keys to look at other 
screen-plots. There are 70 screen-plots 
altogether, each covering roughly 12 
milliseconds. Thus, the original signal 
is sampled for about .84 seconds. See 
figure 1 for an example of a screen-plot. 
The circuitry and code are fully opera- 
tional, but the information here should 
really be taken as a suggestive guide for 
customizing the ideas to your own needs. 

Physically, the circuit is connected 
together by point-to-point soldering of 
wire-wrap type wire on a California 
Computer Systems model 7500 proto- 
type board (see figure 2). (This board 
costs $21, and the labels on both sides 




Figure 1: Sample plot of wavelorm produced by s conga drum. 




Figure 2-' Component side of the ADC board. 
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for all edge-connector terminals are very 
helpful for wiring and checkout.] There 
is a two-wire ribbon cable from the card 
to a little metal box with a phone jack 
for plugging in the signal, and a poten- 
tiometer for attenuating the input signal. 

You do well ii you find an integrated 
circuit as friendly as the Analog Devices 
AD570p. This costs $22 (in singles| 
but is a completely self-contained, 
successive- approximation, analog-to- 
digital converter. It has one analog input 
[choose unipolar 0-lOV input by ground- 
ing the BIPOLAR CONTROL pin, or 
leave the pin'floating for bipolar -h - 5V 
inputi, and 8 digital outputs. There is 
one input control^ine called 
BLANK/CONVERT(B/C|, and o ne out - 
put ac knowledgement line, DATA 
READY |DR). In BLANK mode the 
digital output lines are floated (tri-state, 
high impedance condition). Nothing 
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happens until B/C is brought low, 
thereby switching the imit into CON- 
VERT mode. After grinding out the 
answer in 25 ^iS, the result appears 
latched onto the eight output lines, and 
DR is brought low. That is it. Bring the 
unit back into BLANK, and start over. It 
has to stay in BLANK a m inim um of 2 
nS before another conversion is in- 
itiated. Also, in bipolar mode the output 
is offset binary (zero signal gives output 
128). At this point you can foresee that 
the software loop for filling RAM area 
with samples of audio signal will have 
the following steps: 

1. initiateaconversionbybringingB/C 
from low to high for 2 ^S; 

2. wait at least 25 fjS, and use the time 
to check for done and to compute the 
address of the next location to stick 
the answer; 

Figure 3 .- Apple II ADC Board 



£6 o TTT^ 

C1 C2 C3 — ^+S^ 



DEVICE SELECT 



3. read the answer; 

4. stick it in RAM; 

5. go back to I. 

Here is how the circuit works (figine 
3). The audio signal is applied at phone- 
jack fl to a non-inverting gain stage 
based on a 741-iype operational ampli- 
fier. Potentiometer PI adjusts input 
signal level, and is mounted remotely 
withJI.Thegainisequalto one plus the 
ratio of R2 to Rl, and with the values 
shown, the gain is 7 . 8 . The back-to-back 
Zener diodes ZI, Z2 clip the signal to 
+ - 5V peak-to-peak, which is the 
analog input range of the AD570JD. 

I needed a 2 (jS positive-going pulse 
from some pin of slot #7. That was not 
available, but the DEVICE SELECT line 
at pin 41 of the peripheral connector 
"becomes active (low)... when the ad- 
dress bus is holding an address between 
$COnO and $COnF, where n is the slot 
number plus $8." This specification 
[Apple U Reference Manual, p. 109) 
determines the choice of locations 
SCOFO and SCOFl for initiatmg the con- 
version, and reading the answer, respec- 
tively. The 74LSOO quad NAND-gate is 
the address decoder, and either triggers 
($C0FO| the 555 one-shot (set for 2 ^S by 
R3, C4], or momentarily puts the 
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Listing 1 


100 


HOMfi 


11(1 


REH DEFINE UPPER LIHIT OF PASIC AREA! 


170 


REM LOWER LIMIT OF DATA BUFFER; 


130 


REH K IS A CONVERSION CONSTANT 


110 


REM FOR PLOTTING IN HI-RES. 


150 


HIMFH: B191;e:ASE = 29552JH = 159 / Z55 


li^O 


REM PROMPT. 


170 


PRINT ■'PLAY 6 FEW NOTES AFTER HEARING TONE" 


180 


REM BRIEF DELAY. ■ 


IVO 


FOR I = 1 TO 500! NEXT 


200 


REM EiRIEF TONE. 


zin 


FOR I = 1 TO 200:E = PEEK (19200>t NEXT 


220 


REM DEFINE JMP $0300 FOR USR FUNCTION. 


230 


POKE 10,76: POKE 11,0! POKE 12,3 


3tO 


REM CALL DATA COLLECTION ROUTINE. 


250 


ANS = USR <X) 


260 


REM INITIALIZE FOR SCREEN-PLOT ("PAGE") CAPTION. 


270 


TINE = 12:FAGE = 


2ao 


REM — initiali:;e for hi-res: 


290 


SW = 19232 


300 


REM MIXED, 


310 


POKE SW + 3,0 


320 


REM PAGE-ONE, 


330 


POKE SW -t 1,0 


310 


REM HIGH-RESOLUTION, 


350 


POKE RW + 7,0 


360 


REM GRAFHIfJS. 


370 


POKE SW,0 


3R0 


REM ! ADJUST CURSOR FOR CAPTION. 


39 


HOME : VIAE: 21! POKE 36,0 


lOil 


REM DISPLAY CURRENT PAGE. 


110 


GOSUE! 560 


12 


REM COMPUTE AND DISPLAY CAPTION. 


130 


LFT = PAGE « TIME 


110 


RIT = LFT + TIME 


1=(0 


PRINT "TIME = "LET" MS"! 


160 


PRINT TAE( 1 1 ) "PflGE="PAGE ! 


170 


PRINT TAP< 22)"TIME = "RIT"MS" 


180 


REM INTERPRET PRESSED KEY. 


190 


PRINT "PRESS E FDR EARLIER PAGE, L FOR LATER" 


500 


GET Ki: ir K* < > "E" AND K$ < > "L" THEN GOTO 500 


510 


IF KS = "E" AND PAGE > THEN PAGE = PAGE - 1! GOTO 390 


520 


ir K% = "L" AND PAGE < 30 THEN PAGE = PAGE ♦ 1". GOTO 390 


530 


GOTO 50 


510 


REM HI-RES SCREEN-PLOT! 


55 


REM INITIALIZE BEGIN AND END BYTES. 


560 


LO = EASE * PAGE « 280 


57 


HI = LO + 279 


580 


REM CLEAR PREVIOUS PLOT. 


585 


HCR 


590 


REH PLOT 280 DATA POINTS FROM BUFFER. 


600 


FOR I = LO TO HI 


610 


Y = PEEK (I) 


670 


V = INT (Y K W) 


630 


HPLOT I - L0,!^9 - Y 


610 


NEXT 


65 


RETURN 



latched data at the converter output 
($C0F1) onto the system data bus. That 
is how the circuit works. 

While assembhng the unit, I was 
concerned that the 12V would get 
through a wiring error onto some TTL 
line — either onto the + 5V supply, or 
onto an address or data line. So I advise 
you to do at least as much double- 
checking and testing of the circuit as I 
did, even before plugging it in without 
chips. First, perform continuity tests to 
insure that there are no paths from 
-12V to +5V; second, sec if all pins 
have "correct" resistance to ground. 
Third, leave all chips out, and install the 
board in slot #7. Turn on the Apple H 
and if it behaves normally, measure 
voltages at all pins of all sockets on the 
new unit. Fourth, when you arc satisfied 
again that all is well, turn off the power, 
pull the board, and install U4, U5. 

Fifth, put the hoard back, re-apply 
power, check voltages at the installed 
chips, and if all is well, try the following 
test program from the machine language 
monitor: 

OCOO STA $COFO 
STA SCOFI 
JMP $OC00 



Or, for more fun, try the slightly more 
elaborate 

100 A = 49392:B = A+ 1:X = 
40/255 

110 POKE A,0 

120 Y^PEEK(B):P=INT(X*Y) 

130 PRINT TAB(P}"*" 

140 GOTO 110 

Be sure to try out the attenuator, PL 

iConlinued) 




EDIT 6502 



T «. UK 




Pass Assembler, Disassembler, and Editor Single Load Program 

DOS 3.3., 40/80 Columns, for Apple II or Apple 11 Plus" 




A MUST FOHTHE MACHINE LANGUAGE PROGRAMMER. Eclil6502* « a two pass Assem- 
bler, IS as seen bier and text editor tor tl^e Apple computer !I Is a single load program 
ttiatooly occupies ffl of memory. You can move treelytietwEen assembling and disas- 
sembling. Editing is both character and line orientated, the two pass disassemblies 
create editable source files. The program is so written so as to encompass combined 
disassemblies of 6502 Code, ASCII text, hex data and S*eet 16 code. Edit 6502 makes the 
user feel he has never left the environment ot basic. It encompasses a large number of 
pseudo opcodes, allows finked assemblies, sottware stacking (single and multiple 
page) and complete control of printer (paganation and lab seitmg]. User is free to 
move source, object and symbol table anywhere in memory. Requirements: 48K of 
HAM, and ONE DfSK OftlVE. Optional use of 80 column MSR board, or lowercase availa- 
ble with Paymar Lower Case Generator. 

TME K LOOX AT JUKI SOME OF THE EDITtNfi CdMIHNO FEXIUHES. insert at hue « nOelete 3 characlei 
lnseftacliaraclerOele(eahne»nLisllineSn!.n!tolinB((n3Cha!igeline«nllon2"slrinDr Seaicli 
line « nl (0 n2'str]ngr 

UK EnterprisBS Inc. P.O. Box 10827 St. Louis, MO 63129 (314)84fr«124 

'Edil KO? T M. ol LJK Enl inc . — 'tsplc T M. ol Apple Cimpuier tnc 



tnax AT THESE KETBDMDFUNGTIOHS: Copy to tns end otiine and 
exH Go ID Ihe beginning ol Ihe line abort operalion delete a 
ctiaocler ai cursor localion go lo end of line (mil cliaiaclep 
aller cuisoi tocation nan destructive backspace loserl a 
ctiaractei at cmzo' tccation stiitt lock sbill icJease torward 
copy, delete line number oretii special prini characLers Com- 
pLete cursor conirol name and cleai.rigril. let! downup Scrolla 
line a! a time Nbvb lypt a tins nunUr igiin. 

Ml Ihls ind imicli niiich nwre — Send liu FREE Inlnrniatliin. 
Introductoiy Price »50.00. 




Listing 2 












# 




• 








• DIGITAL 


STORAGE • 








• OSCILLOSCOPE • 

4 * 








• ELLIS 

* 


:00PEH • 

-It 






score 


asa 


«300 




0300 48 


START 


PHA 




;SAVE PHOCESSOH 


0301 8A 




TXA 




; STAT1B OH STACK. ,, 


0502 48 




PHA 






0505 98 




HA 






0304 48 




m& 






0305 08 




PHP 






0306 


* 








O3O6 A96F 




LDA 


#$6F 


;INITIALIXB TWO CONSECUTIVE 
BYTES, 


0308 854B 




ETA 


S4B 


!$4C $4B, IH PAGE ZERO AS 


050A A973 




LDA 


#$73 


;POINTEH TO DATA BilFFEH, , 


050c 854C 




ETA 


t4C 




O3OE 8DF0CO 


CNV1 


STA 


$C0F0 


;ETAHT A COKVERSION. 


0311 A207 




LDJL 


#S07 


iDELAY UNTIL END 


0313 CA 


DELAY 


DEX 




; OF COBVERSIOH. 


0314 DOFD 




BNE 


DELAY 




0316 


J 








0316 AD? ICO 




LDA 


SC0F1 


iREAD PULSE AMPl.ITDDE. 


0519 C98C 




CMP #S8C 


;1S THREEHHOLD EXCEEDED? 


031 B 3OFI 




BMI 


CNV1 




031 D 


; 








031 D AOOO 




LDY 


#$00 


iYES; CLEAR Y FOR 
INDIRECT- INDEXED MODE 


031 P SBFOCO 


CNV2 


ETA 


SCOFO 


;STAHT A CONVERSIOH 


0322 A54C 




LDA 


$4C 


;LAST PAGE OF BUFFER? 


0324 C994 




CHP 


#$94 




0326 B006 




BHE 


INCH 


;R0. 


0328 A54B 




LDA 


$4B 


jYES; LAST BYTE OF LAST PAGE OF 


052A cgoo 




CHP 


#$00 


;0F BUFFER? 


032c FOI5 




BEQ 


EXIT 


iYES. 


032E 


J 








032E 18 


IHCB 


CLC 




;S0; CLEAR CARRY FOR ADDITION 


032F A54B 




LDA 


$4B 




0331 6901 




ADC 


#$01 


jINCRalEHT THE POINTER... 


0333 854B 




ETA 


$4B 




0335 A54C 




LDA 


$4C 




0337 6900 




ADC 


#$00 




0339 854C 




STA 


$4C 




033B 


; 








033B AD? ICO 




LDA 


$C0F1 


;READ FULSB AMPLITUDE 


033E 9MB 




STA 


(S4B).Y 


-, STORE IN DATA BUFFER 


0340 4G1F03 




JHP 


CNV2 


iCO BACK FOR MORE 


0343 


1 








0343 28 


EXIT 


PLP 




jRESTORE PROCESSOR STATUS 


0344 68 




FLA 




;FROM STACK 


0345 A8 




TAY 






0346 66 




EI* 






0347 AA 




TAX' 






0348 68 




PLA 






0349 


; 








0349 60 




ETS 
END 




iRETUEB TO BASIC. 



If these little tests do not turn up any 
surprises, it is time to put in the main 
program of this article (listing 1 and 
listing 2). Be sure to save both parts 
before running. Be warned, you must 
have 48K RAM to use this software 
exactly as written. Like I said, though, 
you should use these listings only as a 
starting point, if at all, to carry out your 
own ideas. 



One refinement of the software 
would be to display only every nth 
sample, or to sample less frequently but 
for a longer duration. Another idea is to 
swap back and forth between two high- 
resolution pages, achieving an "ani- 
mated" display of the waveform. As for 
me, it is time to bone up on algorithms 
for extracting significant information 
from the stored data, e.g., pitch periods, 
envelopes, and so forth. 
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Using an oscilloscope you should see 2 
fiS positive pulses at U2(ll) and 0.5 /jS 
active-low pulses at USil) and U3|19)- 
Now, sixth, install the remaining chips 
and repeat all tests. 

If everything appears OK at this 
point, you may be confident that your 
board is working, but there is nothing 



like a conversion to convince you. 
Seventh, plug in an electric guitar or a 
microphone, or even just a speaker 
which has a big magnet, and try a pro- 
gram in BASIC; 

100 POKE 49392,0 

110 PRINT PEEK(49393)" '■; 

120 GOTO 100 



Ellis Cooper owns an Apple li Plus 
microcomputer with a single disk drive, 
NEC 12" video moniror, and Centronics 
737 printer. He is employed as a research 
mathematician by an international gold 
bullion dealer. 
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aPPLE • ALTOS • ATARI ■ MAXELL • D YS AN • EPSON • CCS • SHARP • CASIO • HP • VERBATIM • MEMOREX • SOROC • CORVUS ■ ADDS 



') 



/X/IICRO 

BUSINESS WORLD INC. 



TOLL FREE MAIL ORDER LINES 
(SOO) 423-5686 outsiDc ca<ii. 



COMPUTERS 

jfcnnnlG comnutaf 



Apple I1-3?K 
ADpFe IJ 64K 



J133O0C 

143D1X] 
1S30.M 



ALTOS aCS 8000-15 ^s'" °° 



SHARP-44K ZSO FULL KBDYX 



NEC PC 8001 



ATARI PERSONAL 
COMPUTERS 

41X1 10K B/iea ol Ram 
e0016>:BylesolPafn 
dIO Progiam Pecomer 
a 10 Di^k Drive 
825 PJinler (M col- 

Cenlronic 737( 
820Prin1er(40col 

impDCI) 
S3Q Acou&lic r^odam 
&S0 inierloce ModutB 
Alarp ViiicQIc 
Alan 400- 16K 



LM 

595 OS 
SIOBOOO 

torn 

SCO 00 

MOOS 

150 00 
20000 
320 00 
200 00 
35500 




769.00 

353.00 
'S6.D0 
<92.00 
1M.0D 
327.00 



; > 



rial "^"LETT 


Lis! 


Our 
Pile 8 


SAVE 


HP 1?S Mic^Dcompulef 


3750 DO 


2900 00 


760.01) 


HP-flS MiCTOcompufai 


32»00 


2475 00 


TKM 


HP-aa Microcom outer 


2250 00 


'777.00 


471.00 


li* t^D-Memorv 








MHlule 


295 00 


255.00 


40.00 


Grophica Ploner 7225 


2150 00 


2075.00 


375.00 


Persona Illy Mod 








riJf722S 


750 00 


665 00 


U.OD 


2631 & Impacl.prinler.' 








hvydiy 


3950 00 


3250.00 


700 JM 


Opnon 020 lor 2631 B 


150 00 


125.00 


li.IM 


Djivea ro clioos« Irom 








S2902S 


1300 00 


1< 25.00 


moo 


OaOSAB" Duol Drive 


AS50 0D 


5500.00 


1190.00 


Graphics Tablar 0111A 


2050 CO 


167S.00 


374.00 


HP-41CVUSW23 








bv'ss rnerp 


325 00 


UO.OO 


75.00 


HP-JI.CColculoior 


250 00 


1S5.0D 


Mt-OO 


Card Beaaer lor 








J1CVC 


21500 


162.00 


53.00 


Prinlai lor JIIDViC 


385 00 


M9 00 


1IH.0O 


OplJCai Wond tai 








11 cvc 


15600 


W.OO 


U.OO 


Ouad Rcrm equoli 








IMem Modi 


95 00 


gioo 


11/n 


Mernorv Modules lor 








J1C 




25.00 


i 


Hf.O? Programbie 








Prinler 


760.00 


5!5.0D 


171.00 


HP-*? Programble 








Cdlculalor 


375.00 


295.00 


U.OO 


HP.3IC Progromble 








^cieniiPic 


150 00 


117.00 


U.OO 


HP'38C Progromble 








Bus m 


150.00 


II7O0 


13.00 


HP.32E Aav Scienlilic 


56.00 


4100 


7.00 


HP-37E Business Mgmi 


75.00 


57.00 


1«.00 


Wecorryolarge invenrory ol libiariBi 


occe&^arresand 


^UD plies 






^ 



PRINTERS ^ 


1^ 


ii=- 


^^ 


EPSON 


Ll$l 


1 

Oiir Price 


SAVE 


MX SO Fl 


'as 00 


549.00 


196.00 


MX 80 IMPACT 


61500 


450.00 


KI.DO 


MX 70 IMPACT 


500 00 


300 00 


110,00 


MX 100 


09600 


765.00 


UO.00 


APPLE SELENTYPE 


645 00 


25O.00 


146.00 


ANADEX f HI 


1650 00 


12OO.0D 


191,00 


NEC 








5510 


310500 


2445,00 


790JMI 


651S 


3295 00 


2546.00 


790.00 


3510 


2105 00 


1796 00 


700.00 


35' 5 


2545 01) 


1B10.00 


691.00 


OKIDATA 








M CHOLINE ao 


515 DO 


345.00 


150.00 


MCIWLINI S2 


549.00 


549 00 


100.00 


MICIiOLINE B3 


1050 00 


769 00 


211.00 


PAPER T19ER 








IdSG wiln Graphics 


705 or) 


695.00 


looxn 


AfiOG willy Graphics 


1.30100 


SOO.OO 


4njio 


S60G New T11II ^ii:e 


1 .605 00 


l.t 39.00 


M6.00 


DIABLO (LETTER QUALITYI 






630 li1Q2 l:ll<llrel^Ill^nal 








I'aclors 


2.06500 


2.350.00 


915.00 


1640K109 layboard 








IrOCTOis 


1,000 OD 


2.S99 00 


1.100.09 


630 no Rsi^Bivs Only 


2,71000 


2,250 00 


460.MI 


liSOli 136I.BybCOra 








Iraclois 


1,000 00 


3.100.00 


900.00 



SPECIAL OF THE MONTH 



APPLE 11 PLUS 
48K W/16K 
KXPANSIOIN BOARD 



a=64K 



Our price 
$119900 




List price 51780.00 
Our price S 1199.00 

Save $581.00 



APPLE II STUDENT^^ 
SYSTEM 



• Appir II Plus SyslrmtSK HAM 

• Disk [] Flnppy Disi Si 
Enlrrfaizc (IX>S 3-3) 

• 13 Grn, Ph>. Vidro Monitor 



,->>>' 



«^ 





MONITORS 



NECGrn Phs 12" 
SMC Green Phs 12 
Zariim 12" 

SANVO MONfTODS 

High BtulufLon. Hurrbvr 1 ivllvr 



llsl 

S2B500 
275 00 
159 00 



List 

13' Color (newl 

i\>Ql\ qualil^ 5560 DO 
12' Greect Plkospnorpus 3O0 DO 

IS" Block B While 310 DO 

15" Elrack ft While 370 00 

9 BlQClS While 

'he BesI Selleri 335 DO 



Price 

239.99 
229.00 

11900 



Our 

Price 

389.00 

24000 
217 00 
236.00 



14600 



SAVE 

146.00 
WOO 
MM 



SAVE 

1161.00 
120.00 
tll.DO 
115.00 



«0J)O 



5 



DISKETTES 

SOLD IN BOXES OF ID 
[Win. Purchase) 
Bi\ SlOO-iJIhf 
Fniftuvini^ Diskpttea 
DYSAN 

10J 1 5 ■ iOfI SECtOB 
104 10 =■ 081 

DEN SOfT ^EC 
3740 1 8" SOFISECIOB 
3740.10 8" DEL 

OEN .SOf I SECIOB 

MAXELL 

MDI 6" SOFT SEC 

TOR.DBL DEN 
MC.2 = ■ SOFT 
SECTOfl.'DBL SIDE. DHL 

OEN 
FOI B' 50F15EC OBL 

DEN 
F0.2B" 50FI3EC 'OBL 

SIDE DBL OEN 



LKI 

PSICE 

600 

640 

7 26 

10 76 



500 



700 
650 




PEBDIlKiTTI 

3 09 1 2,01 



160 
175 



4 00 



i.ao 

1.90 



1.00 



S50 



4 90 MO 
4.50 1.00 

5 95 1.55 



TERMINALS 

TELEVIDEO 



010 
912C 
920C 
OfiOC 



Lisl 
600 00 
050 00 
095 00 

1 195 00 



Our 
Price 
690 00 
699 00 
795.00 
019 00 



SAVE 

100M 
151.00 

no.oD 

146.00 



SOFTWARE 


'^ 


a^ 




FOR APPLE n 




"'-~So 








Our 








Ll5l 


Price 


SAVE 




Apple Forfron S 


200 DO S 


147 00 S 


910D 




DOS 3 3 (Ifi Saclor) 


60 00 


45.00 


1S.00 




Afloie PILOT [i&secioij 


150 00 


119 00 


11.00 




Apple FOr^Tr^AN 










Jiaquiraa A2B0OD^) 










[10 sector] 


20OOO 


159 00 


41.00 




Apple Pascal 


495 00 


399.00 


w,ao 




BPl Generol IsUgei 










Sy^fem 


30500 


319.00 


76.00 




BPI Inventory Package 


39500 


310 00 


J6,00 




Vi&nJB" 


20OOO 


159 00 


4IJ10 




Vi$icaic 


20000 


159 00 


41/10 




Desklop Plan it 


20000 


159.00 


lino 




MiciolaD Dolabasa 










Syilem 


150 00 


119 00 


IIJIO 




Sk>nsware Oi Mi^^iei 


220 00 


leo.oo 


40.00 




Muse 5juo9'i9'i 11 


150 DO 


119 00 


lino 




^rrace Magic Wmaow 


rWDO 


72 00 






TEXAS INSTRLHMENTS 1 


T\ 90I4A Carinas New 










Improved 


950 DO 


385.99 


9M.0! 




10 Cofor Woniior MiQh 










IJesoluncm 


37106 


317.96 


97.00 




32K Mernorv ModLjIe 


309 05 


312.96 


■7O0 




Speeci^ SynihesiJar 


119 95 


127 95 


HOD 




D:& Memoiv [jrivfi 


499 05 


390 95 


109.00 




Rr Moduialor 


19 06 


12.50 


7.45 




Telephone Coupler 










[Modern 1 


22195 


18505 


39.00 




Prinla> [Solid Sinie] 


309 95 


31595 


U/IO 




■ 






^ 




MODEMS 










r^WTION CAT MODEI^ 


180 06 


110 00 


49.95 




NOVATION D-CAT 


199 00 


15000 


49.00 




NOVATION APPLE CA1 


349 00 


310 00 


19.00 




HAVtS MICKOMODEM 


379 00 


29500 


91,00 




HAVES EMABIMlSCiM 


279 00 


239 00 


40.00 










« 


CALCULATORS 








CASK) 










Hl)-10 


40 95 


39.00 


•0.95 




Hn 1? 


5105 


42110 


1I,9S 




Fn 100 


70 95 


59 JM 


10,99 




Fl) 1210 


120 05 


99 OO 


M.45 




PQ-20 


20.06 


23.00 


6.95 




IC-7S5 


12.05 


10.00 


1.99 




LC3165 


13.05 


1000 


9.99 




FX-68 Scianlillc 


2905 


23 00 


1.95 




F«-ei Scienlihc 


10 05 


17.00 


1.95 




FX 360OP ScremiW 


39 05 


29 95 


10.00 




FX-i02P ■Compuler 










loll'' BBMerrories Pro. 










grofhrnihg UDper a 










Lorter Cose Dol Molrn 


129 05 


99 00 


U.9S 




EX-702P Solves Prop Isms 










wilh Alpho-Numeiic 










Clarity, uses flosic 










Language 


109 05 


159 GO 


40.95 





DRIVES 



COSVUI 

5 M BITES 
10 r^BVTES 
20 MBVIES 



3.750D0 305000 
5.350 DO 
S 450 00 



rfr"rr:^im"a"-'-"r=:1 

1 %Ym- 




II n iii)\ ■ 

MISI\ITI(l\ — ;- 



TM/KI 
149.00 901 M 
150.00 I.IUXNI 



TELE. 


ANSW. DEVICES 




PHONE MATE 










OOO 


119 05 


86 00 


11.9S 




eosrvemore 


100 05 


11100 


95,95 




910 


159 05 


11600 


14.95 




12G 


190 95 


114.00 


55.95 




025Peinote 


230 95 


173 00 


66.95 




030r?&nofe 


209 06 


210O0 


■3.95 




■JSO ReiTiOfe 


339 95 


245 JM 


94.95 




IfiOr&nofe 


300 06 


288 00 


111.95 








y^lCnO BUSINESS WORLD 
S . - . ■ , , WAREHOUSE 

. . .■ - i'"! lS720Oinard,il10aTariana.CA 91356 
QUTSIOE CA (^nUL TOLL FBEE 1 (800) 323.6886 IN CA (2r3l 990-2262 



Cerlilred CEiQck or M.O. CashJCrerlil CardfAlloA 2 
Bank Wira Translar weet; cleararice lor chackst 



w" r'ese ~e7riu TiQ^l} a 
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Function Generator 
and Library IVIanager 



This program builds Applesoft 
subroutines to handle keyboard 
Input, display output, file 
input/output/update, sorts and 
PRINT USING. Input/output 
functions are customized, based 
on a file description in DATA 
statements. 



Ray Cadmus 

600 W. Lee 

Moberly, Missouri 65270 



Program Writer (Almost) 

Have you ever considered how nice it 
would be to write the main routine for a 
program and then have all the sub- 
routines it calls just magically appear? 
Sound farfetched? Stay with me. I don't 
really have any magic, just the next best 
thing — a program to generate the rou- 
tines you need. 

Here is a quick example to illustrate 
what I mean. I want a program to read 
and display the first 10 records in a 
direct access file. I'm assuming the 
record numbers are i to 10. 

10 FOR R = 1 TO 10 

20 GOSUB 1000 : REM READ A 
RECORD 

30 GOSUB 2000 : REM DISPLAY 
THE RECORD 

40 PRINTPRINT "ANY KEY 
WHEN READY "iGET Z$i 
PRINT Z$ 

50 NEXT 

60 END 

Nothing to that part. It's those sub- 
routines that take the time. It's even 
worse working with direct files (as I do 
99% of the time]. With direct files you 
want fixed length fields within a fixed 
length record. That calls for a lot of 
packing and unpacking of data. No 
more! Instead we run "FDGEN." 

FDGEN (file descriptor generation) 
grew out of my frustration with the 
situation just described. I found myself 
spending 10% of my time writing the 



guts of a program and the other 90% 
coding the routines to make it work. 
Since that time, FDGEN has grown to 
include keyboard input and update 
routines, sort routines, etc., as wei! as 
disk I/O, including the pack and unpack 
to handle fixed length fields and records. 

FDGEN works from a file descrip- 
tion in DATA statements that you add 
to the program as needed. This could be 
a separate file instead, but I've found it 
handy to keep all my fOe definitions 
togethei here- Anyway, RUN FDGEN. It 
asks if the file definition exists. If not, it 
terminates to allow you to add them. 

The format is: 

nnnn DATA filename,length 
nnnn DATA field-id, length, title... 

If you answer yes, that the file descrip- 
tion does exist, then you get a menu 
asking what routine to generate. As you 
select routines, they are tailored to the 
file description and written to disk. 
When you have selected all the 
necessary routines, then select the end 
option to close out the disk file. 

Now, save FDGEN with your file 
description, clear the computer (NEW), 
and EXEC yoin file name.FD. Your sub- 
routines should now be in memory, just 
as if you had coded them yourself. Add 
the statements for your main routine 
and you have a program. 

A couple random comments: You 
may have any number of file definitions 
as DATA statements. The program 
searches by file name. Caution: the total 
of the field lengths must add up to the 
record length. Use a dummy field, if 
necessary, to pad out the record and 
allow for expansion room. The file 
handling routines are designed for fixed 
length records, hence you must make 
some provision for getting the correct 
record number "R" before executing the 
read or write routine. 

This program belongs to a class of 
programs that I consider programming 
tools. Before I get into descriptions of in- 
dividual routines built by FDGEN, I 
would like to mention a couple other 
tools that I consider indispensable. One 



is RENUMBER from Apple, the other is 
PLE or Program Line Editor from Call 
A.P.P.L.E., written by Neil Konzen. 
These programs are complementary and 
reside together in memory at all times 
when I'm programming. The reason 
that I mention these programs here is to 
point out that the routines built by 
FDGEN may not always be just what is 
needed. Feel free to modify and do your 
own thing with them, PLE makes the 
chore much easier. 

Now for the routines themselves. I'll 
start with the I/O routines since they 
are the reason that this program exists at 
all. As I mentioned earlier, these 
routines deal with fixed length fields 
and records. Perhaps it's my big systems 
background, but I feel more comfortable 
with fixed length records. Also Apple 
DOS requires them for random access. 
The I/O routines are similar in that each 
starts with a file open, if the file is not 
already open. You must close the file in 
your own code. Remember, at that time, 
to set Fl = so the routine knows the 
file is closed. 

Random files also require a record 
number. The routines expect it in "R." 
As you build a Hie you may either assign 
it sequentially, or you could "hash it" 
from some field in the record to achieve 
random access. By hash it I mean 
develop a unique number based upon 
something not necessarily numeric. As 
an example, you could add up the 
numeric "ASC" equivalents for each 
position in a name field and use the sum 
as the lecord number. There is any 
number of possibilities, so let your 
imagination go. 

The keyboard input routine serves a 
dual purpose. If you execute it with 
UD = 1 iUD is the update switch], it will 
display existing values and give you a 
chance to change them. If UD = 0, then 
it accepts input normally. Here again 
feel free to modify. Since the input rou- 
tine reads as a string initially, it will 
accept anything without error, and will 
give you a chance to insert any editing or 
check routines that you desfre. If you do 
no editing and alpha data is input to a 
numeric field, the resulting value will 
beO. 
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Once all fields for a record are 
entered, the routine will ask if all are 
OK. If reply is "N," then the cursor is 
repositioned at the first entry position. 
Change data if you wish, or leave it by 
hitting "RETURN." 

Another way to use this routine is 
during entry of data, where some of the 
data is common to a group. If you assign 
a new record number, then enter the in- 
put routine with the update switch on 
[UD = 1|. Then the last record will be 
displayed and "RETURN" will dupli- 
cate any field. New data may be keyed 
over the old as required. 

The sort routines are straightforward 
Shell-Metzner sorts. The numeric rou- 
tine will sort the ARRAY "SR"'from the 
first position to the number in "SY." 
The string sort does basica.Uy the same 
thing, only sorting array ''SR$." One 
special feature of the string sort is the 
use of the string swap routine written by 
Randy Wiggington and published in Call 
A.P.P.L.E. This speeds up the process 
and eliminates pauses for "garbage col- 
lection" by BASIC. To sort on particular 
fields in a record with the string sort, 
change the comparison statements to be 
"MIDS" type, rather than compare the 
whole record. 

The PRINT USING routine is a 
quick and dirty one for money fields 
only. (See Arnold Edelstein's article in 
this issue for a more elaborate routine.] 
To use it, place the numeric field to be 
printed into "P." The length you want 
the printed or displayed data to take up 
on output goes in "PL," then GOSUB 
nnnn:PRINT P$. There is one deficiency 
in the routine. A value of - ,01 through 
- .09 will print as . - n rather than - .On 
as it should. That's the price for 
simplicity. 

That's about it. The easiest way to 
get a good feel for the program is to look 
over the examples, then use the routine. 
If you come up with any favorite rou- 
tines worth adding to FDGEN, I'd like 
to hear about them. 



Ray Cadmus has been in data processing 
since the late SO's and piogiamming since 
the early 60's. Most of his work has been 
with business applications on large scale 
IBM equipment. He started programming 
microeomputers because it gave him the 
opportunity to write what he wanted, 
rather than what business pressure dic- 
tated. Now. though he still works with 
micros for fun, he is expanding his con- 
sulting activities into the area of small 
business computers and hopes to someday 
make that his primary occupation. 



Figaro 1: Sample File Stnjclure 


;ooi 


DfiTA 


TEST, 20 


2002 


DRTA 


A$,10,FLD1,B,S,EUG.CS,5,FLD3 


2003 


DftTA 


ADC«,74 


2004 


DftTA 


NAS,20,NM1E, M)?,20,fl[a»ESS 


2005 


EftTA 


CrS.15,CIT¥ 


2006 


DATA 


CTS,2,STWrE 


2007 


DATA 


ZPS,5,ZIP 


2008 


CftTA 


PHS,12,FHC1JE 



FIgun 2: Sample Run 

FUG EN 



THIS PROGRAM FUILDS A TEXT FXLE THAT MAY BE EXECUTED INTfl 
AN A-BOFT PROGRAM TO OPEN - REfiH - WRITE - PACK - AND UNPACK 
A DATA FILE 

the: ROUTINE IS BUILT FROH tlAIA STATEMENTS 
YOU ADti TD THIS PROCROM 



THE DATft STATEMENT FORMATS ARFt 

2NNN DATA FILENAMEt RECORHLENUl H 
2NNN IiATA ilf.LENtTH i Tl TLE . . . 



DOES FILE DATA ALREADY EXIST? Y 



ENTER FILE NAME ADPR 
SELECT ONE OF 



BUILD FILE OUTPUT 
BUILri FILE INPUT 
BUlLn KEYBOARD INPUT 
BUILH LIST ROUTINE 
BUILCi STRING SORT 
eUILIi NUMERIC SORT 
PRINT USING ROUTINE 
ENIi 



1 - 

2 - 

3 - 

4 - 

5 - 

6 - 

7 - 
9 ^ 

?3 

STARTING LINE NO 1000 

lOOOREM 

INPUT ROUTINE 



lOOOttO 
10(11N= 
1002N= 

iso'aiF 

1(I04N= 
1005IF 
100AN= 
I0O7IF 
l(ld8N= 
10O9IF 
1010N= 
lOllIF 
101 2N= 
1013IF 
1(I14N= 
1015N= 
1016IF 
10171F 



ME 

1 

N+1!VTAB 

UD THEN 
NtllVTAB 

Uri THEN 
NtllVTAB 

UD THEN 
NFi:yTAB 

UD THEN 
Nti;UTAB 

UD THEM 
NtliUTftB 

UD THEN 
1 
NFl :VTAB 

LEN< Zt )= 

L£Ni Z$ )= 



k:htab 1 

HTAB 15! 
NIHTAB 1 
HTAB 15: 
NIHTAB 1 
HTAB 15: 

n:htab 1 

HTAB 15: 
NIHTAB 1 
HTAB 15: 

n:htab 1 
HTAB 15: 



IPRINT'-NAME-f 
PRINTNA* 
'.PRINT"ADDRESS" 
PRINTAD* 

:print-city"( 

PRINTCT* 

!PRINT"STATE"; 

PRINTST* 

lPRINT"ZIP°i 

FRINTZP* 

iPRINT"FHONE"i 

PKINTPH* 



NiHTAB 15!INPUT"" Hi 

AND NOT UD THENNA«=" ■ 

AND UD THEN VTAB N:HTAB15:PRIHTNA* 



(continued} 
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Figure 2: Sample Run (continued) 

10181F LENf ZJ)>0THENN6t^Z« 
1019N=N+1 iVIflB N:HTflB 151INP 
lO^OIF LEN(Zt)=0 A«D NOT UD 
1021IF LEN(Z$)=0 AND UD THEN 
1022IF LEN< It »OTHENftD*=?$ 
1023K=N + l!VTAii NIHTftB IS'.INP 
1034IF LEN(ZJ)=0 AMD NOT UD 
1025IF LEN(Zt!=0 AND UD THEN 
1026IF LENCZt )>0THENCT$=7t 
1027N=N+i;i.'TAP NIHTftB ISIINP 
1028IF LeN(ZS)=0 AND NOT UD 
1029IF LEN( Z* )=0 AND UD THEN 
1030IF LEN<I1. )>(ITHENST»^Z$ 
J03aN = fJti:UTAB NtHTfiB 151INP 
1(I32IF LEN(Z*)=0 AN[i NOT UC 
I033IF LeN(ZJ>=0 AND UD THEN 
1034IF LEN( Z$>>0THEN2Pt=Zt 
1035N=N+1 :VTA» N:HTAB 15!INP 
10361F LEN(Z$)=0 and NOT UD 

io3:':f LENiz*>^o and ud then 

103aiF LEN(Z$)>0THENPH$=Z$ 

io39t:T"OK ■; y,n >"f:GETZ*:? 

THEN UD=i:GOTn JOOO 
I040RETURN 



UT"" ;zt 

THENADt^"' 

yTAB n:htadib:printad* 
UT"";z« 

THENCTt="" 
yTAB NIHTABlSiPRINTCT* 

UT ■•"(?* 

thenst«="- 

VTAB N:HTAB15!PRINTST» 

UT""fZt 
THEN2P*="' 
VTAB N!MTftB151PRINTZP$ 

UT""i7t 
THENPH«="" 
VTAB N:HTAB15!PRIMTPH« 

7*11F Z*="N" 



i04i: 




SELECT ONE OF 


1 - BUILD 


FILE OUTPUT 


2 - BUILD 


FILE INPUT 


3 - BUILD 


KEYBOARD INPUT 


4 -■ BUILH 


LIST ROUTINE 


S - BlilLU 


STRING SORT 


6 - BUILD 


NUMERIC SORT 


7 - PRINT 


USING ROUTINE 


9 - END 





71 

STARTING LINE NO 200O 

2000REM 

FILE I/O 



200]IF NOT Fl THEN Fl = l !PRINTM"OPEN ADDRt175" 

2002KS="":Bt=" 

2t)0jR*=R* + LEFT*( N6* + Bt,20 ) 

20O4R*=Rt+LEFT$< AD* + P«.2i) > 

20 0SR* = R* + LEFTt( CT$ + Bt,l^i ) 

200 6ft*=R$ + LEFT*CSTJ + B*.2 ) 

^OO/Ri-^RftLEFTSI ZP»FB4<5) 

20Ci3R1'=R* + LEFTt( PHJfM f t? ) 

20O9PRINT Df'URITE ADDRiR"R 

2010FRINT ftt 

20l:lPRINT n* 

20.12RETURN 

SELECT ONE OF 



- BUiLD FILE OUTPUT 

- BUILD FILE INPUT 

- BUILD KEVBGARD INPUT 

- BUILD LIST ROUTINE 

- BUILD STRING SORT 
' BllILD NUMERIC SORT 

- PRINT USING ROUTINE 
END 



3 
4 

5 

6 - 

7 

9 ■ 

?? 



Program Lisling 

10 RTW *** FCGEN 8/18/60 •** 

20 Rm *** FAY CACMUS - MDBERLY, MO. *** 

30 REM *** INITIALIZE *** 

34 QS = CHRS (34) 

40 GOSUB 850i REM - FIND FIIE TO PROCESS 

50 FF¥ = FS + ".EC" 

60 CDS = "": REM CTI>D 

70 m = 60200 

80 PRINT CDS"Ma) 0" 

90 PRIWr CDS"0PEM "FS? 

100 GOIO 120 

110 PRINT CD5 " WRITE " FFS : REnURN 

120 BIN *•* MAIN BCtJriNE *** 



130 
140 
150 
160 
170 
175 
176 
177 
178 
180 
190 
200 
210 
220 
230 
240 



PRINT CDS: KWE 

PRIWr "SELECT CNE OF": 



PRIWT : PRlWr 



PRIWr "1 - BUILD FIIE OUrPlTT" 

PRIWr "2 - BUILD FILE INPUT" 

PRDTT "3 - BUIUJ KEVEORBD INPUT" 

PRINT "4 - BUIIJ3 LIST BOTTINE" 

PRINT "5 - BUILD STRIN3 SORT" 

PRINr "6 - EUIID NUMERIC SORT" 

PRINT "7 - PRINT USING ROUTINE" 

PRINT "9 - EUD" : PRINT 

INPUT N: IF N = 9 THEN GOTO 230 

IF N < 5 Iran GOSUB 970; GOSUB 1150; GOSUB 110 

CM N GCSUB 250.600,1000,1170,1300.1400,1500 

GOTO 130 

PRINT CDS " CLOSE" FFS : EKD 

REM **• BUILD OUTPUT ETIHS *** 



250 GOSUB 330: REM BUIU) OPEN STATEWEWT 

260 READ DS,L,i!S:IH = 1« + 1 

270 IF RICHTS (DS,1) = "S" THEM GCSUB 460: GOTO 290 

280 GCSUB 420 

290 RL = RL + L 

300 IF RL = R THEN GOTO 500 

310 GOIO 260 

320 : 

330 R&l **• OUTPUT OPEN *** 

350 EBIKT IM"Em 

FIIE I/O 

360 m = Ul + 1 

370 PRIWr IN'IF NCT Fl THEM FI=1:PRINTDS"QS"0PEN "FS" 

,L"R + 1;QS 
380 IN = IM + 1 

390 PRIwr UJ"RS-"QS:QSr":BS="QS" "QS 

400 RBIUFN 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 



i 



» 



REM *** PACK NUMERIC *** 

FRIOT IN"RS=RS+LEPrS{STRS("DS")+BS,"L")" 

REaWM 

REM *** PACK AU«A ***** 

PRINT I«"F5^+LEETS("DS"+BS,"L")"' 

BETIUra) 



REM **• OUreWT CLOSE - CLOSE "* 
510 I« = m + 1 

520 PRINT UI"PRIHr DS"QS"MRrTE "FS;".R" ;QS:"B" 
530 m = IH + 1 
540 PRINT Ifl"PRIHT B5" 
550 Ifi = IH + 1 
560 PRIWT IB" PRINT D?" 
570 IM = L« + I 
580 PKlSr LN"REmjfiN" 
590 RETUEM : REW - END BUHa WRITE 
600 RH4 ** GEN READ & UNPACK *•* 
610 GCSUB 330: REN BUHD OPEM STATSIEMT 
620 FL = 

630 GOSUB 970i ¥m - FIND PII£ IR DATA STOTQlENrS 
640 lil = UJ + 1 

650 PRINT UJ"PBIWT DS"OS"READ "fS;",R";CS;"B" 

660 Uf = IW + 1 

670 PRINT UI"IHPUr B?" 

680 ID = XH + 1 

690 FRiwr uj"PRnn' dS" 



\ 
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"S" THEM GOSUB 780i GOTO 750 



IIJ, + li FMOT UI"REItJBH" : KtH'UHN 



700 READ DS,L,H? 
710 PI == BL + 1 
720 U) - lil + 1 

730 IP RiorrS [dS<i) 

740 GOffiJB SIO 

750 BL " RL + L 

760 IF PL - R 1«EN IK 

770 GOTO 700 

780 Sm *■* UNPACK MJ«A •** 

790 PRISr UI;D5"-MIDS(RS."P1","L")" 

600 BEnUBN 

810 FEM *** USPACK NtW *•• 

820 PRDTT UIiD5""VM.(MIDS(BS."P1"."L"))" 

B30 FBIUES 

B40 REN **• FIND F1I£ mTft *" 

850 HCWE : PRIST : PHIWr "FTXSES " 

860 PRINT ! PRINT ; PRIMT '"IHIS PRCGRfiM BUIUS A TE3(T Fill: TH 

AT MAY BE EXECUTED lOTD AK A-SOPT PROGRAM" 

870 PRIWr "TO OPEM - READ - WRITE - PACK - AMD UNPACK A DATO 

FILE" 

880 PRINT "THE RCUTINF IS BUILT FRCW I»TA ETATEMEWTS YDU ADD 

TO THIS PRCGRPW" : PRnJT ! PRINT 

B90 PRINT "THE DRTA STATWEWT FORMATS ARE;": PRIHT 

900 PRINT ■'2M«J EATA FIUHftME.RECORDLEHGm" 

910 PRINT "2N»I [»Tfi ID, LENGTH. Trn£. , ," 

930 PRINT : PRETT : INPUT "DOES FILE DATfi ALREADY IKIST7 ";0Q 



9J0 

Ewrs 

940 

?;q 

160 

■'7(1 
^80 

1000 



"Y" THEM PRINT "ENTER DATR STATEW 



IF LEFTS (CQS,1) 

- THEM RESTART"; EMD 

PRINT : PRINT : INPOT "ENTER FII£ NAME "jNS 

GOSL'E 970: RETURN 

RFM *** SETT PTR TO START OP FII£ *** 
RESTORE iRL = 

READ F$- IF FS = NS THQi READ R; RETURN 
GCTO 900 
REM *■• BUIID INPUT «TN *** 



!0(i3 GOKffi 960: REM 
J006 PRINT IN"REW 



- FIND FIIE 
INPUT ROUTINE 



1009 LS = LM 

L0I2 FRItrr Ur'HCME" 

1015 Lil = UJ + 1 

1018 PRINT 1N"N-1" 

1021 IH = IM + I 

L024 READ D?,L,HS 

1027 PRINT I«"N=HI-1 :VTAB NjHTAB 1:PBINT"QSHSQ5"!" 

1030 IM = UJ + 1 

1033 reiHT UJ"IF UD T«EM HTAB 15!pRIHr"DS 

1036 RL = RL + L 

1039 IF RL = R THEM GOTO 1045 

1042 GOTO 1031 

1045 liJ = lil + 1 

1048 GOSUB 970: PRINT lil"N=l" 

1051 IS = LS + 1 

1054 READ D5,L,HS 

1057 PRINT 1H"N=H4-I :VTAB N:HTRB 15!D1POT"QSQS" ;2S" 

1060 IN - IM + I 

1063 PRINT UJ"IF UM(ZS)^ AND NOT UD 'nffi»"DS"="QSQS 

1066 IH = IH + 1 

L069 PRINT IN"IF LHJ(ZS)-0 AND UD THHi VTAB N:IirAB15:PRINr"DS 
1072 IN = LB + I 

1075 IF RIOTTS (DS,I) = "$" THEM PRINT IM"IF LEM{ZS)>01HQJ"DS"=ZS" 

1076 IF RIOTTS (DS,1) < > "$" TBH) PRINP IN"IF Lai{ZS)>0THEH"DS"=VAL(Z;5)" 
1078 RL = RL + L 
lOBI IF RL = R THEM GOTO 1087 
L084 GCTO 1051 

1067 IM = m + 1 

1090 PRINT IN"?.-?"QS"OK < Y,N >"QS"; :GElW:?ZS:IF ZS="0S"N"QS"1BEM 00=1:0010 "LB 
1093 IN = m + 1 
1096 PRINT IW'REnUPN" 
1099 Ul = LN + 1 
L102 PRINT IM":" 
L105 REIUTOJ 
L150 REM *** GET LINE NUMBER *** 

1160 HCME : INPUT "STARTING LINE NO ";LM: RETORH 
1170 REM **• LIST ROUTINE **• 

1180 PRINT IN"HCME" 
1190 LN = IH + 1 



^continued} 



Three 

IMPORTANT 

Books for your APPLE 




The MOST Complete $14.95* 

MEMORY MAP of the 128 pages 

Apple ever published. 




$24.95* Two SUPERB blends 

each of articles and 

224 pages Z^'^^J"^ ^'°"'. 
w/DISK MICRO magazine 

for the Apple. 



To order, call toll-free 

1-800-227-1617 Ext. 564 

In California: 
1-800-772-3545 Ext. 564 



Master 

Card & 

VISA 

Accepled 



MICRO INK, Inc. 
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P.O. Box 6502 

Chelmsford, MA 01824 



'Ada $2,00 for shipping, 
Massachusetts residents add 5% tax. 
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1200 FEftD DS,L,HS 

1210 PRINT IM"PRmr"OSHSQS","DS 

1220 RL = PL + L 

1230 IF RL = R TOQI GOTO 1250 

1240 GOTO 1190 

1250 IW = IM + 1 

1260 PRINT I»"REnjRN" 

1270 REIUBM 

1300 R&1 *** BUIID STMBG SOTTT *** 

1315 PRIOT CD? 

1320 fK«E : PRIHT "NO LIME MD OOICE": PKIWr 

1325 FOB Z = 1 TO 1000: NEXT 

1327 POKE 33,33 

1330 raiNT cWwritt; "FF$ 

1340 LIST 6000 - 6100 

1350 raiNT CD$ 

1355 TEXT 

1360 HETUBN 

1400 REM *** HJHC NUMERIC SOfTT *** 

1415 HOWr CDS 

1420 HCME ; PRIOT "NO LDJE BD CH3TCE"; PRINT 

1425 TOR 2 = 1 TO 1000: NEXT 

1427 PCKE 33,33 

1430 PRIWr CW'WRITE "FFS 

1440 LIST 7000 - 7100 

1450 PRIOT CDS 

1455 TEXT 

1460 REmiRH 

1500 FEW •" BUIID PRISr USING ••* 

1515 PRIN. v^, 

1520 EKME : PRIHT "NO LINE MD CHOICE"! PRiUT 

1525 FDR 2 = 1 TO 1000: NEW 

1527 POKE 33,33 

1530 PRIOT CDS"WRITE "FFS 

1540 LIST aOOO - 8100 

1550 PRINT CDS 

1555 TEXT 

1560 RETURN 

2000 Sm ••* DATA POUOWS •** 

2001 EATA TEST, 20 



Oystems 



Dae Mian SyKsmi 
P.O. Boi13C0e 

Damon. Tx Texa 



SOFTWflHE FORTHE APPLE II- 

ISAM-OS IS an inieyraled sel of Auple^o'l routines ihal gives infle-ed fiJe cauabiliTies 
ro youi BASIC C'ograrns Helrieve by iev. BS'lial key or sefluenlially Space from 
deleled rptorOs is auiomalically reusea Capabilhics ariQ ceilormsnce thai msKh 
O'Dducr* coslpng ivvice as much. 
!5fl Disk, ApplMofl. 

PBASIC-DS 15 d sophisticalad preprocessO' lor sliuclured BASIC- U50 advanced 
logit tonsliuqis Euch as IF . EtSE - . CASE. SELECT, and many more. DBvelOD 
piDflraois 'oi Fmeger oi Applesoft Enjoy lf>e power of slrucluied ii>gic al a ffeclion of 
[he coil of PASCAL 
S36 Di^. ApRlesofl f J8K. FOfuf or Language Card! 

DSA- DS .s a dis-asiemblei for B502 ccjde Now vou cari eailily dis-assembiB any 
machine language program lor [he Apple anrt use the dis-assemtrlerl code direcliy as 
jnpui lo your assembler D is- asse [Tables msiroclions and dale Produces code c:om 
patiBle with (he S-C AssamBlar (versron 4 01, flpole's Loolkii assembler and ofbci5 
&25 Disk. Aoplesofl I32K. ROM or Laogoaqe Carrll 

FOHM DS IS a co^^plfllo syslem for irie definilion ol inpiii and ouloul fipms. FORM 
OS supplieii rhe aijlomafic checking of numeric inoiil lor acceolalile range o' irjlue^ 
aiHOrfialic formalling of numoiic oulpul, anil many more features 
S3S Disk. Applesoll I32K. BOM oi Language CardI 

UrtL-DS IS a set of rou lines for use mih Applesnfr 10 Itirmal numeric ouTou[. selcc 
lively clear variables (Applesoli's CLEAR gels sverylhingh imorave erioi nanaiiiig. 
gnil iriTsrlaco rnachine language wjrh Aoplesofl programs Includes a special load 
r ou line for placinL] machine language routines underneafhAoplesofl orutirams 
»2S Disk, ftpplesofi 

SPEED-DS IS a routine to modily the statement linkage in an Applesoft prrjyran^ to 
speed irs cjieculiori Improvements of 5 20% are common As a horius. SPEEO-OE 
includes machine language routines to speed string handling and reduce [he neeif fo- 
garbage clean-up Author Lee Mead or 
$1S Disk. Applesnltt^K ROM or Language CardI 



(ABtl M.OOlor Foreign Mill] 
■ApDieltisa rogiswrsd Trade mark of 1 ho Apple Com put «r Co 



AS , 10, ELDl , B, 5 , ILD2 , CS , 5 , F1XI3 
ADDR, 74 
N7iS,20,KAME, ADS,20,ADDRES6 
CTSilS.CITO 

STS,2,s'mrE 

ZPS,5,ZIP 
PHSil2,PfKHE 



2002 DATA 

2003 DATA 

2004 DATA 

2005 DATA 

2006 DATA 

2007 DftTA 

2008 DATA 

2009 ! '** DATA TOUXWS 

2010 DAT7\ CHEI3<:, 37 

2011 DATA Nl, 4, NUMBER 

2012 DATA TlS,20,aECK TO 

201 3 miPi CI S , 5 , CATAGORy 

2014 IftTA Al,8,AMDl)Hr 

6000 REM **. STRING SORT •** 

6001 REM SORTS ARRAY SRS FFCM 1 TO SY 

6002 IF SI GOTO 6009; RIM BYPASS SWAP SEIUP 

6003 SI = 1: REM SET BYPASS SflTCH 

6004 REM STRING SWAP 

6005 REM BY RMJDY WIGGIWFTCH 

6006 HEXS = "3B0:20 E3 DF 85 65 84 86 20 BE DE 20 E3 DF ftO 02 
Bl 85 48 Bl 63 91 85 68 91 83 88 10 F3 60 N D823G": REN ASSY 

6007 FOR I = 1 TO IQI (flEXS) : PCKE 511 -^ I, flSC ( MID? (HEX? 
,1,1)) + 128: NEXT : POKE 72,0: CALL - 144: 

P£M DUMP TD MEMDR Y 

6008 POKE 1013,76: FCKE 1014, 176t P«<E 1015,3: 
REM SET £ VECICT) 

6009 REM " SORT ** 

6010 SM = SY 

6011 SM = IWT (SM / 2) 

6012 IF K1 - TIIEM REHTJRN 

6013 SK = SY - EM 
5014 SJ = I 

6015 SI = SJ 

6016 SL = SI + SM 



6017 IP sb5(si) < = sbS(si.) ■mm 

6018 S SRS(SI),SRS(SL) 

6019 SI = SI - SM 

6020 IF SI > =1 THEN GOTO 6016 

6021 SJ = SJ + i 

6022 IF SJ > SK THEH (Xf!0 6011 



GOTO 6021 



GOTO 6015 

RBI *** SORT eaUTJNE *** 

REM SORTS NUMEEIC ARRAY "R" 
r™ ETK^I 1 to SY 



6023 
7000 

7001 
7002 

7003 SM - SY 

7004 SM = INT (SM / 2) 

7005 IF SM = IHES RETURN 

7006 SK = SY - SM 

7007 SJ = 1 

7008 SI = SJ 

7009 SL = SI + ai 

7010 IF SR(SI) < 

7011 ST = SR(SI) 

7012 SR{SI) = SR(SL) 

7013 SF(SL) - ST 

7014 SI = SI - SM 

7015 IF SI > =1 TUtN GCfTO 7009 

7016 SJ = SJ + 1 

7017 IF SJ > SK TtJES GOPD 7004 

7018 GCfTO 7008 

7019 REM ** END OF SCKT RIH ** 



= EB(SL) THBl GOTO 7016 



8000 REM 



PRINT USIB3 



8001 am POP 5 AND CENTS TOFMAT 

8002 R&1 P= VALUE, PI^ LiWOlW 

8003 REM PS-FTEIC ACTUALLY PROnTD 

8004 PS = STRS ( INT ((P + .005) * 100)) 

8005 IF ISH (P?) < 3 THQI PS = LEET5 ("000", 

(3 - lai (PS))) + PS 

8006 PS = LEFTS (P5, ( LEN (PS; 
(PS, 2) 

8007 PS = RIGHTS (" 

8008 REIURN 



- 2)) + '■ 
+ PS. PL) 



RIGHTS 



I 



MCftO 




% 



FEATURES 
INCLUDE: 

•All registers displayed 

•Compatible with all 
Apple languages 

•Completely relocatable 

•Full hex and ASCII I/O 

•Multiple options while 
in trace mode 

•Literal and transparent 
breakpoints 

•Resident assembler 

•Resident disassembler 

•User-definable screen 

•Ram screen dump in 
hex and ASCII 

•Comprehensive 
documentation 

•Single keystroke 
operation 

•Instruction cycle 
counter 

•Hexadecimal/ 
decimal 
conversions 

•Con run in add-on 
ram card 



Bill Budge, creator of 
"Raster Blaster," rieeds It: 

" , , . I'll never write another 
program without BugByterl" 



Who else needs BugByter? 

, , .Apple' users who want to leorn machine language, 

, , .Apple programmers in need of a complete 6502 
debugging tool, 

. . . Educators who need to demonstrate the operation 
of the Apple's central processor, 

, , , Software professionals who need to display and 
control all 6502 registers. 



BugByter 



is 

NOW AVAILABLE AT $39.95 

on diskette for Apple II or Apple II + 

from 
COMPUTER-ADVANCED IDEAS, INC. 

1442A Walnut Street Suite 341 

Berkeley. CA 94709 

(415) 526-9100 



■Apple is a registered fradernork of Apple Compuler, Inc. 
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ASCII Dump for the Apple 



This article presents an 
assembly language program that 
extends the "Examine Memory" 
routine in the Apple monitor. 
The use of the program is 
identical to that of the monitor 
routine except that memory 
contents are displayed as ASCII 
characters as well as hex 
numbers. 

Robert F. Zant 
P.O. Box 13006 
Denton, Texas 76203 



The Apple D monitor contains very handy 
routines for printing the contents of 
RPiM locations. The 'Examine Memory' 
routine along with the monitor's dis- 
assembler makes it possible to view the 
contents of main storage, respectively, 
as hex numbers and as instractions. The 
missing capability is the ability to 
display the contents as ASCII 
characters. The following assembly 
language program augments the monitor 
routines to display the hex and ASCII 
representation of storage contents. 

The routine was assembled with the 
S-C Assembler to load into the top posi- 
tion of the line input area ($240- 2FC]. 
When mn, the routine responds with 
the right parenthesis, T; as the prompt 
character. The range of locations to be 
displayed is specified in the same man- 
ner as with the monitor routine (i.e., 
hex addresses separated by a period) . For 
example, 801.10CF would display the 
locations of 801 to lOCF inclusive. The 
routine is exited by entering a CTRL-®. 

Editor's note: The .n labels In is a digit) 
aie local labels. If your assembler does 
not support them, use distinct and 
unique lables instead. 



Robert Zant is a Professor of Information 
Systems al North Texas State University. 
He has experience in the computer 
industry as a programmer, analyst, 
teacher, and consultant. 
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S 
* 


ASCII DUMP 












ROBERT F ZANT 


4 -' — ■ 


.OR 


«0240 




0240- 


20 


3A 


FF 


START 


JSR 


tFF3A 


BELL 


0243- 


A9 


A9 






LDA 


#SA9 


" ) ' PROMPT 


111245- 


B5 


33 






STA 


«33 




0247- 


20 


67 


FD 


READ 


J5R 


*FD67 


READ LINE 


024fl- 


20 


C7 


FF 




JSR 


«FFC7 


CLEAR MODE, Y=0 


024D- 


20 


A7 


FF 


NEXT 


JSR 


tFFA7 


GET ITEM 


0250- 


B4 


34 






STV 


«34 




0252- 


C9 


B9 






CMP 


#SB9 


CTRL-3? 


0254- 


FO 


20 






BEQ 


.9 




025i- 


C9 


99 






CMP 


»*9'? 


BLANK? 


0253- 


FO 


OE 






BEQ 


. 1 




025fi- 


C9 


fl7 






CMP 


««A7 


■ . '7 


025C- 


FO 


12 






BEQ 


.3 




025e- 


C9 


C6 






CMP 


lttC6 


CR? 


0260- 


DO 


DE 






BNE 


START 




0262- 


20 


79 


02 




JSR 


EXAM 




0265- 
0268- 


4C 
20 


47 
79 


02 
02 




J MP 


READ 


NEXT LINE 


. 1 


JSR 


EXAM 


PRINT THEM 


026B- 


A4 


34. 




2 


LD¥ 


t34 




026D- 


4C 


4D 


02 




J MP 


NEXT 




0270- 


20 


IS 


FE 


.3 


JSR 


«FE18 


SET MODE 


0273- 


4C 


6e 


02 




J MP 


.2 




0276- 
0279- 


4C 
A2 


DO 
00 


03 


.9 


J MP 


to 3 DO 


RETURN TO BASIC 


t 








■f 

EXAM 


LDX 


•ttoo 


CLEAR MODE 


027B- 


B6 


31 






STX 


«31 




027D- 


ae 








DEV 




JUST A BLANK-:' 


027E- 


DO 


Oft 






BNE 


PRTADR 


NO 


0280- 


fl5 


3C 






LDA 


*3C 


YES 


0282- 


09 


07 






ORA 


#*07 


PRINT NEXT 


0284- 


85 


3E 






STA 


*3E 


EIGHT BYTES 


0286- 


A5 


3D 






LDA 


«3D 




02SS- 
02aA- 


B5 
fl4 


3F 
3D 






BTA 


S3F 




W 

PRTADR 


LDY 


t3D 




02BC- 


A6 


3C 






LDX 


«3C 




02aE- 


86 


40 






STX 


#40 




0290- 


B4 


41 






STY 


»41 




0292- 


20 


BE 


FD 




JSR 


»FDBE 


CR OUT 


0295- 


20 


40 


F9 




JSR 


*F940 


PRINT X,Y 


029B- 


AO 


OO 




' 


LDV 


»*00 




029A- 


A9 


AD 






LDA 


#*AD 


'-' 


029C- 


20 


ED 


FD 




JSR 


IFDED 




029F- 


A9 


AO 




PRTHEX 


LDA 


#»A0 




02A1- 


20 


ED 


FD 




JSR 


SFDED 


PRINT BLANK 


02A4- 


Bl 


3C 






LDA 


(«3C) ,Y 




02A6- 


20 


DA 


FD 




JSR 


SFDDA 


PRINT HEX 


02A9- 


20 


BA 


FC 




JSR 


SFCBA 


INC 30. 3D 


02flC- 


BO 


OC 






BCS 


.9 


< 3E.3F? 


02AE- 


A5 


3C 






LDA 


*3C 


PRINTED ALL 


02B0- 


29 


07 






AND 


WS07 


EIGHT? 


02B2- 


DO 


EB 






BNE 


PRTHEX 


NO! 


02B4- 


20 


BE 


02 




JSR 


ASCII 


YES 



I 



100 
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02B7- 
02BA- 
02BE- 



4C SA 02 
20 BE 02 . <? 



60 



02BE- 

02C0- 

02C3- 

02C5- 

02C7- 

02C9- 

02CB- 

02CD- 

02CF- 

02D1- 

02D2- 

02D4- 

02D5- 

02D7- 

02D"?- 

02DB- 

02DD- 

0'2DF- 

02E1- 

02E3 

02E6- 

02Ee- 

02Efl- 

02EC' 

02EE- 

02F0- 

02F2 

02F4 

CI2F5 

02F7 

02F8 

02Ffl 

02FC 



RTN 

> 

« 

ASCII 



J MP PRTADR 
JSR ASCII 
RTS 



A9 AO 
20 ED FD 
A-? IE 
C5 24 
BO F5 
AO 00 
A9 07 
25 40 
49 FF 

le 
bf oa 

4B .0 
Bl 40 
29 7F 
C; 20 
90 04 
09 BO 
DO 02 

A9 AO .1 
- 20 ED FD.2 
A5 40 
C5 3E 
A5 41 
E5 3F 
E6 40 
DO 02 
E6 41 

69 -3 
BO 05 
3B 

E9 01 
10 DB 
to .9 



LDA 

JSR 

LDA 

CMP 

ECS 

LDV 

LDA 

AND 

EOR 

CLC 

ADC 

PHA 

LDA 

AND 

CMP 

BCC 

□ RA 

BNE 

LDA 

JSR 

LDA 

CMP 

LDA 

SBC 

INC 

BNE 

INC 

PLA 

BCS 

SEC 

SBC 

BPL 

RTS 



#CAO 

«FDED 

H91E 

«24 

ASCII 

)t*00 

#»07 

♦40 

#*FF 

#«0B 

(*40) ,V 

#*7F 

«»20 

. 1 

#•80 

.2 

ttSAO 

«FDED 

«40 

«3E 

C41 

»3F 

•40 

.3 

»41 

.9 

#«01 
.0 



PRINT BLANK 
COL 32? 



CALCULATE 
COUNT 



SAVE COUNT 
GET CHAR 
CLEAR HIBH BIT 
SPECIAL CHAR? 

VES 
CAPS 

BLANK IT! 
PRINT IT 
NEXT ADDR 



GET COUNT 



PRINTED ALL B? 
NO 
VES 
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' i.m la le*'"1 "111* 60' P<wrr»iil iMmandi 

■ Double OemHy graphics, large ni^ttr AHpIl) 

■ Lcmolng ar*i &**eih of vigil pTO^rrBi lo ca&EEiLr or- diikeue ^ 

■ fJlw [CnplfU progra"^ trclilil«l - BreatuHil, £p4ce*Jar, *nl1A1rtrafl, U^F.O. ,> 
^TUCfflatllp, ConCEnli-aHon, Vaze. r:«le14o&CDpe i ForturvfTellei". 

* For 01 D HEM *■■ '-Q MK^ k-ltli BH ol "emory U.l. t C*HAD* FIJBEll> 

VlGll far PETi'CBh pr* ta-ivtlt It rtlikielle W9 Brogr-a« 1« -"Q 

V[G1L for H\C on cd^»ttE 1r«ulrM 3K me-ft-J expander) ^^S'"" Jti 

«lGll U^fr's lUrUll ( ref u ndabl P -llh wfHiare urQtv'l HO --.i\f 

VIGIL Irterprefpr lisllBq 16^0? flEiMdlPT L^nguagE) -r.tgS ...liQ 



PET 



PET* APPLE II USEflS TlNY pASCAL 

StrucljrHl lanqLEaoF iltrrnitlvt to BASIC lar PET Q' APPLE 11 IncluilF^^ 

- LINE EOnW ' fTHtK, *Odiriti and matnlfllm WUr^e laraadgp. 

■ CDMflLEH - copverti jmir Wurtt to an eieCutlDie P-todf foTinHt. 
■■ IHTtRPPETEP - e'fflftei ccmpUrf P-n^ode. Fsatures Twill-d TP»tE. 

- CWE-QF.WHILE-POTlF-TnEN-lt&E.BEPElT-UHnL/OR-IDyWHW^^^ 

■ &rii>nici version nil ^i-e' csbph ics, plot, fOihT.iEXi, i Wit vb£. SOP - 
APpCe II h« Iq"« * hlrfi-fDlOH, H6SAPHld^.HtoCmi,H^LOI,l>flL dmj TWE 

U.S. 1 CUD' FqREICH 

TIN* Piical PLU^- G(r*PHltS PET J?ti tUd/'.Q RO* dl^tttl.- -S^O ^0 

im Plical PT.US' Gf-PHICS PET i?f ME»f/-,D »OKS ca^ettC- SW K5 

IIHT PtSCll PLUS4 GfliMICS APPLE El *BK thd CUS 3,?/3.3 -i\^-..- «0 

Iim PMtil llOII-Glf*P«[CS PEI I6t:/J2K IfEU/fl.O BC«5 dinette. .... .»S- «5 

iriH Pa«Hl HOK-GPMHfCS PET lftK/3?^ HtW^O flOJC ca^«llf.-.., .MO JEO 

TINI Paical NWf-&R*PHlC5 *PPlt II iZt/t&r. and ODS 3.?/?.3..- U*-.- 1*5 

TINl Pamal IJest's Harufll Jrefuiiditilp «1lt* ^oftwBfe nrderl --\\>>- ...112 

TINl P«cal 6^0? Irtemrrttr HEtln^GPWHKS wfrslon «S 130 

TINT Pascal 6y)2 I rterprCl tr 1. 1 it i no-lfDU-GRAPH I C S **rtlon 115 120 
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TjNY basic COfS/IPlLEn - PET 

A inif cDrnptlVi' imi tUr-iH yMt BBSlC procFran *"to last "acnMs code 

* SubsFl or FEI SASic cm^i« <° ^^? tndcnine codt. 

* Ha^ fjli Flottlng pplnl capabklltlH ird functions. 

■ Co"vOer II^IIlQ »1lanal -Ith 161 W'«1t>n Mncluded). 

■ Can load cO«|i M addiliv [cde aifkrti»r# In rvort^ 

U.S. « CflJl]*LW 

TINT Ba^tt Compller-OLn/HEJ/^.O BW^ ml n. 8fi-casettp/aUi;«tle.. .$?5 

TIHV BaEli: U^pr'j Harual irefumlab^f *lll» jolMare order] .%\\i. 



pet' machine language guide 



Kin lr» Its ninth priming. H 
Pfi/CBi* -itri me Hsy to foiii 

roullwi. 

P[r HIGHlKE LABGUAGf GLJIDE foi 



am tri* niddei talents nf yojr VflU. fJEf or 4.0 ROM 

N iiaiUllr Dttalll 30 nf llie PET'* [«IH-1n «^^ 

U.S. J CMUII].^ FOREIGK^.^^ 
OLD. MEM or 4,0 BgHS 19 -.111 — 
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ABACUS SOFTWARE 

P. 0. Bo:< 7211 

Grand Rapids, Michigan 49510 



SIB/ ea-i-ssTO 



V«4' 



Prices hnclucM po«lage. 

Orders ^i%X be preihald *1a 
(heel;, money OrOer or barfc- 
cardr FOT-*lgn orders «j bf 
paid for "Ifl IntprnatloiBl 
ri>onf> araer or bar* card. 
f Ace esi .E u'o[ J Ml , &i rcl ay ca rdl 
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DUAL DOS ROMS 

FOR APPLE ][* 

' ■ , , ** », v'nl/' * MOUNTAIN COMPUTER'S BKDBOMEDA'S 

' ■ , *ROMPLUS ROMBoARD* , ^ ' 

SWITCH FROM ONE DOS (3.2 or 3.3) TO THE OTHER 

WITHOUT BOOTING 

nilAI DOS HOMS ■ No oaHaets or unsiohlly switches hanging Irom youi Disk conUollei. no sollmaiB to run. no memory space used lo Store the olher DOS, does nol need Ihe use ol the 
3 2 P.oms (lor Ihose dI yoo v<ho purchased a disk Pr™ with 3.3 DOS) Jlili^es the standard 3 2 1 and 3.3 OOS, ho special software (Muttih/DemuHinl to move your programs to and 
from 13 and 16 sector disks no system poimers arochanged, end is ur>atlecled Dy any DOS commands Ihis inualuaWe utility is r:onlain«j in \m ROMs, which when plugged into MC s 
Romplos- or the Andromeda ROMBoard'. will be permanently imbedded in your Apple's memory and waiting [or instan! access The lenglh ol time it lakes Ihe Apple In pertorm a 
carriage rehjrn is aPoiit how fasl il takes to switch Ircm one DOS to Ihe olher Both ROMs have Iheir own inleHigence which allows one ROM lo hnd the olher, in order tor tliem to toggle 
belween either DOS Eilher IIOM can he miiiali/ed lirsi H the 3 ?. ROM is initialised hrsi the Applesoti Ampersand command can be used lo toggle or llip Irom one DOS lo Ihe "1 Her On 
Ihe olhethanfl If you wish to preserve the emsting Ampersand command ™iDrs. Ihe 3.3 ROM oan be initiali?ed first The toggle or llip belween DOS can then be accomplished by a 
simple CALL command from eilher Basic or Direcl from Ihe Monitor Any program Ihal is In memory wril nol be affected by the flip belween DOS. Ihe floibihly of IDggling eilher DOS 
lends itsell yeiv easily to be Bone directly from within your own programs Diskettes can be imfiallzBd Irom enher DOS and 13 sector disks will have Ihe faster INII routine as pari or us 
DOS DUAl DOS ROMS are nbl recommended tor cse with disk drives Ihal are cnnhgurefl with 3 ? Proms. Will operate with FP, INT, or LC and requires J8k. DOS 3 3, ^Jid MCs 
RomplusoiAnd-omeda'sROMBoaro (fwoROMSel) S54.S5 

HT,C0HPUTER'S«OHPLUSBDAilD WITH ONE ROW S17B.aO ANDROMEDA'S flOHBotHD WITH ONE ROM SiaS.DDsELtCTOnEnoMFBOH wiaw(«iiDS;o,OOHnDMLMsmiMS) 

OTHER RflMS AVAILIIBLE: All ROMS are compatible with MC'S Rnniplus or AndromeOa's ROM Board.) ffi3Q gS 

- FP BENUHBER/HERGE ROM -Apple Computer's infamous renumber program mao'aS 

■ BASICS ROW ■ Will booi standard, special, and dedicated 1 3 sector disks re-aa'aK 

- FPEOITHOM-Glohalsearcti. change, and femove (Worksjointfy wllliPLE) , m^ngS 

■ COMMAND flOH ■ Catalog Command Menj and Oiak Map ffi^aSS 

DISKCOP»fSPACEROM-Duplicales 13or 16SectorDisks ^^a'a= 

■ FI>irra.lT»ROM-AuloLinaHumDBnng LIST CIBL, REEUHRECT KILLED PROG,. Wpftabelue DISK CAT , E.punglX)S S3S. 

(ChecK nr M.O.) Visa or MaslcrCartI Accepleil 

,. r^-rw^t r\. ^^..^ _— ____ ■registered trademark 

Soft CTRL systems, box 599, west MILFORD.NJ 07480 801-728-8750 allfirmwareiscopvrighted 
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SENSIBLE SOFTWARE, INC. is pleased to introduce... 

OUR 1981 COLLECTION OF SUPERIOR SOFTWARE FOR THE APPLE COMPUTER. ,. 

APPLESOFT-PLUS STRUCTURED BASIC [APLUS] SBB.OO 

32K + . Disk II. ROM/RAM Applesoll, Apple ll/Apple II + 

APLUS is a 'IK machine language ulility thai aOOs the lollowing structured programming commands lo Applesoft Basic: I) WHEN.. ELSE., FIN. 2} UNTIL. 3| 
WHILE, -1) UNLESS, 5| CASE, 6) SELECT (uanaDle), and 7] (OTHERWISE). Multiline IF,, THEN Statements are also supported APLUS allows Ihe use o( 
"named" suDroulines or "procedures". The programmer can now instrucl a program lo "DO CURVE-FIT" wildout worrying about Ihe location ol the 
Eutiroutine, APLUS automalically indents "e.LIST"ed programs lo clarify Ihe logic How The APLUS "SCONVERT" command replaces Ihe aMve siruclured 
programming commands with "GOTO"'s and ■■GOSUB"'s to provide a standard Appiesott program as oulpul. New programs can now lie written using 
"G0TO"-less logic. 

APPLESOFT PROGRAM OPTIMIZER [AOPT] SeO.OO 

33+, Disk II. ROr^/HAM APPLESOFT. Apple ll/Apple 11 + 

AOPT IS a 2.3K machine language uliiity thai will substanlially reduce the siie of an Applesoll program without affecting the operation ol tfie program AOPT 
automatically 1) Shortens variable names. 2) Removes remarks, 31 Removes unreferenced lines. 4| Appends short lines logelher. 5) Removes eilra colons. 
and 6) Renumbers line numtiers. AOPT will conuert a verbose, vjell documented, development version ol a program inloa memory-eflicienl. more secure, pro- 
duclion version ol Ihe same program. This is the ORIlilNAL and Ihe BEST optimiiet on ttie software market today! 

□OS PLUS mss.aa 

35 + . Disk II. DOS 3 3. Apple ll/Appie II + 

DOS PLUS is Ihe software solution lor living with Both i3-sector [DOS 3.f , 3.2. and 3.? I land 16 sector (DOS 3. 3| Apple diskelles, DOS PLUS adds 8 nev; 
commands lo Apple DOS. Three of these are Ouilt-in ana five are user defmable. The huiit in commands include. 11" F" lo "Hip" belvjeen DOS 3.2 and 3.3 
(The user need not re-bool and any program thai resides in memory will nol be allected by the flip The DOS version can even be changed wilhin a programil, ?] 
" .S" slalus command informs you what DOS version is curreniiy active, and 31 " B" BLOAD- analysis is also provided 10 inform the user ol Ihe starting ad- 
dress and length of the last accessed Binary file DOS PLUS also includes a DOS COMIilAND CHANGER program to allow easy cuslomizalion ol Apple DOS com- 
mands to suit individual tastes. 

DlSKORaAIMIZEnil — NEW — S30.ao 

JBK. Disk 11. Apple ll/Apple II + 

DO II iS Ihe fastest and friendliesi utility available today for organizing files on an Apple II diskette. DO II provides Ihe following functions: 11 TITLING in Nor- 
mal, Inverse. Rasfiing. Lowercase, and olher characters normally not available. 2] CUSTOM REORDERING ol thedireclory. 3) ALPHABETIZING, A) DYNAMIC 
DISPLAY of ALL filenames on a diskette (including deleted tilesi. 5) RENAMING files with Ihe same characler options as TITLING, 6| UNDELETING. 71 
DELETING. Bl PURGING deleted files. 9) LOCKING (all or some). 10) UNLOCKING (all or somel. 11) USE ol DOS sectors for increased dala storage, and 12] a 
SIMULATED CATALOG to show the modified directory beloro if is written to the diskelle. DO II is completely MENU DRIVEN and attains il's speed By altering a 
RAM version ol the catalog DO 11 uses a very powertul SMART KEY loaulomalically locate the next valid filename lor any specilied disk operalion. Compalible 
with DOS 3 1.3 2.3.2 1, and 3.3 as well as MUSE DOS to allow manipulation ol SUPER TEXT liies' (Nole Updates availaBle lor $5.01} and original diskelfe.) 



sss.ao 



PASCAL LOWER CASE — NEW — 

48K + . Disk 11. Apple li /Apple 11 * . Language System 

This IS the mosi recent commercially available LOWER CASE MOD lor Pascal for the Apple II. It is the only curreniiy available modification thai is compatrCle 

with both versions ol Pascal (1.0 and 1.1) The Pascal version is automatically checked prior to updating sysiem Apple. If you have any of the nardware lower 

case adapters you can now input the following characters directly from the keyboard: I "^ ^ i. J ^ ^nd \ . This modilication does NOT interfere 

with any ol the Control' character functions implemented by the Pascal environment and will undo' any alterations made by other commercially released 

modifications 

QUICKLOAOER SaS.OO 

4eK+ . Disk II. Apple 11 /Apple 11 + . . (2 Disks) 

If you find yourself doing the same Ihings over and over -- OLwill help you do itfasterl QLisa unique disk thai lets you load DOS. a language card (optionally). 
and an applicalion program ol your choice eilremely rapidly. OL bools as a 13 or 15 sector diskette and is easy to sel up and use To change the setup, you 
merely load your Apple RAM wilh the new dala and use the "RECONFIGURE" option of QL. The next time you boot your OL disk, it will quickly load your new 
setup (Language Card. DOS. Application program) inio your Apple! QL can reduce the lime to perform these functions by up to 30%' Now that you've read 
Ihis. you say 'But I can already do all of Ihat!" QL doesn't do anything new - it jusl does it MORE CDNVENiENTLV and FASTER' Try it. you'll like it' 

DISK RECOVERY ["THE SCANNER"] S3a.OO 

4eK+ . Disk II, Apple ll/Apple ii + 

This program is long overdue. You need no longer be concerned with Ihe problem of physically damaged disks. Just as "Apple Pascal " provides a "BAD 
BLOCK SCAN". DISK RECOVERY will do a complete scan ol your Apple diskettes' recording surlace Damaged areas will be "marked" as used in the disk 
directory so thai no attempts will be made to ' 'WRITE" ' lo a bad seclor The VTOC will be compleleiy redone lo reflect both the bad sectors and actual disk 
usage A complete report is generated advising the user ol afl corrections. A resulting "DISK MAP" is presented lor your review. The greatest advantage ol 
Ihis program over the olher versions is thai it can be used on either NEWLY INITIALIZED DISKS or disks thai ALREADY CONTAIN PROGRAMS as well as the 
SPEED of analysis. THE SCANNER is lully compalible with Both 13 and IS sector diskelles. This is a must lor all Disk II owners' 

ALSO AVAILABLE: SENSIBLE SOFTWARE, INC. 

SUPER DISK CaPY III S30.00 6519 PERHAM DRIVE / W. BLOOMFIELD, MICHIGAN 48033 

MULTi-DiaK CATAi-aa III ses.aa 313 399 8877 

THE NEW PROTECTOR SBSD.aa 

(OjM ni wnic Idi iniiiriiiai«n) VISA and I^ASTERCARD WELCOME 

LUNAR LANDER il SIS.OO MKlngm Rssiaenls iM II. sales Tax 

_____ *■!■= nn P'SAit add J1 00 po&lage & handling Idi each nam DrdPKJ. 
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DIGITAL STORAGE OSCILLOSCOPE INTERFACES 




APPLESCOPE 

Interlace for the Apple II Computer 

TheAPPLESCOPtsystemcombineslwoliigh speed analog 
to digital converters and a digilal control Doardwilhlhe high 
resolution graphics capabilities of llie Apple II computer to 
crealeadigiialstotageoscilloECOpe. Signal trace parameters 
are enlered Ihrougti the keyboard to operalional software 
provided in PROM on the Dl control board 

• DC to 3.5 Mhz sample rale Willi 1034 byleDulfermemoiy 

• Pretrigger Viewing up to 1 020 Samples 

• Programmable Scale Select 

• Continuous ahd Single Sweep Modes 

• Single or Dual Channel Trace 

• Greater thai or less Ihan trigger threshold detection 

Price for the two board Applescope system S595 
'Dealer Inquiries Invited 



Combine an Apple II or 
31 00 based computer 
syslem wilh our interface 
circuit boards to create a 
digital storage oscillo- 
scope 31 a Iraclion of the 
cosi of olher stoiage 
scopes. 

[he SI 00 interlace pro- 
vides an addilional lOSd 
Dyies of bullet memory in 
place of the PROM The 
user must supply the 
graphics display and 
driving software. Pnce of 
ihesingleboa'diES495. 

TheSCOPEDRIVERisan 
advanced software pack- 
age lor Ihe Applescope 
system. II provides ex- 
panded wavelorm man- 
ipulation and digital 
signal conditioning. The 
SCOPEDRIVER is avail- 
able on 5 %" I lopoy disks 
for S49. 

For lurlher informalion 
contact: 

RC Electronics Inc. 

7Z65 Tuolumne Streel 
Golela, CA 931 1 7 
(805)968-6614 



^ 



CBM/PET? SEE SKYLES ... CBM/PET? 



**They laughed when I sat down 
at my PET and immediately pro- 
grammed in machine language. . . 
just as easily as writing BASIC." 

Wilh the new Mikro, broughl to you from England by Skyles 

ElecLric works, alwan starching the world for ne«.' product? for PET/CBM owners. A 
4K machine language a.«cmbler ROM ihat plugs into your main board. Al just 580,00 for 
[he Mikro chip, ii does all [iie machine language ivork for you; all you have lo do is stari 
laying down ihe code. 

The IVlikro rciains all ihe great screen editing features of Ihe PET. , .even all the Toolkit 
commands. (If vou own a Toolkil, of course.) Sil down and wriic your own machine 
language subrouline. The program you wriie is Ihe source code you can save. And Lhe 
machine language monitor saves Ihe objeci code. The perfect machine language answer 
for mosL PET owners and for most applications. (No! as professional as the Skyles Macro- 
TeA. , .nol as expensive, either.) 

A great learning experience for Ihose new lo machine language programming but who 
want lo niasler il easily, Tivelve-page manual included bui we also recommend the book, 
"6502 Assembler Language Programming," by Lance A, l.cvenlhal al 117.00 direct 
from Skyles. 

Skyles guaranfess your sslisfsclion: if you are nol absoluiely happy with your new 
Mikro. reiurn it lo us iviihin ten days for an immediale, full refund. 

Skjies Mikro Machine language assembler SSO.Ofl 

-6302 Assembler Language ("rosrammlng" by Leventhal H-W 

Shipping and Handlmg (USA/Canada) S1,S0 lEurope/Asia) SIO.OO 

California residents must add 6%/6i'i % Jfl/es las, as required. 



Skyles Electric Works 

23IE South Whisman Kuad 
Mounlain View. California 94041 
(415) 9«5-lT3S 



Visa/MBslereanl orders: call to 11 free 
i»m I27-999S (excepi California). 
California orders; please call (4151 
965-1735. 



OHIO SCIENTIFIC 

THE WIZARD'S CITY — 

search for gold in the dun- 
geons beneath the Wizard's 
city or in the surrounding 
forest, A dynamic adventure 
allowing progress in strength 
and experience. All OSI — 
cassette $12,95, disk $15.95. 
OSI HARDWARE 15% OFF 
RETAIL PRICES! 
GALACTIC EMPIRE — a strat- 
egy game of inlerstellar con- 
quest and negotiation. Com- 
pete to discover, conquer, and 
rule an empire with the com- 
puter or 1-2 other players. C4P, 
GBP cassette $12.95, disk 
$15.95. 

AIR TRAFFIC ADVENTURE — 
a real time air traffic simula- 
tion, C4P, C8P disks $15.95. 
Plus S-FORTH, FAILSAFE 
+ 2 RPV CONTROL, ADVEN- 
TURE, TOUCH TYPING, IN- 
TELLIGENT TERMINAL and 
more. Send for our free 
catalog including photos and 
complete descriptions. 

Aurora Software Associates 

37 S. Mitchell ^ 
Arlington Heights ™k 
Illinois 60005 ^^ 

Need o solution for 



Roppv Dish Lube 

Just THfl€€ drops con: 

• Prolong useful dish life. 

• Increase head life, 

• Rllouj initializQCionofprobiem" 
dl^s, 

• Sove 'unbootable' disks, 

• Reduce 'glitching' problems. 

• Cut nuisonce problems. 



/lAiaO ■■ S31A>IS 33S ciad/IAiaO' " c/) 



$4.00 



FIOPPV DISK IUS€ ■ 'h 02. 
UJITH HPPLlcniOfl, 

Rdd 11.50 shipping ond handling. Ohio 
residents odd S'/i% soles toi. 






No. 42 - November 1981 



MICRO - The 6502/6309 Journel 



103 



The powerful package: 
Super-Text 11" 



plus Form Letter™ 



Allows you to learn the basics of text editing 
quickly. Advanced features will meet your 
expanding word processing requirements 
far into the future. $150.00 



Stores names, addresses, and telephone 
numbers and prints mailing labels. Has 
user-definable category system, $49.95 



plus Address Book^'^ 

■^ ■**»»»» ^^^^^B* Provides automatic repetitive printing of letters. 

Allows insertion anywhere in a letter, also direct 
entry, optional prompting, special commands. 

$100.00 

From the leader in word processing 
for the Apple II or II Plus 



mjSE 



SOFTWARE'" 



330 N. CHARLES STREET 
BALTIMORE, MD 21201 
,(301)659-7212 



Con o wniB for inlonnaliori ore 

The roffte cJ voij' rwocasi MUSE i^eoier 



LETTER QUALITY WORD PROCESSOR PRINTER/TYPEWRITER 

FOR NEC, APPLE, TRS 80, COMMODORE, ATARL HP., OSBORNE 1 



OLYMPtA ES100 

■ 92 cliarscter el ec Ironic 

keyboard 
• 8 characler buffer memory 
> Dual pitch, 10 and ^2 

■ 17.5C.P,S. 

■ All settjngs Irom keyboard 
' Aulo correction 

' Daisy lype print mectianism 
' Cartridge ribbons 
' 14 t/a inches writing line 
' 1400 dealers nationwide 



REN TEC ES 

■ Installarion in 15 minules 

using existing ES100 

cables 
' CMOS logic lor minimal 

dram on ES100 power 

supply 
' Hi or low true status bits 

■ Accepts RS232 serial wilh 

7 crystal controlled Baud 
rales 
' Accepts Centronics parallel 
interlace 

■ Selectable auto linefeed 





$1495.00* TYPEWRITER & INTERFACE $295.00*PNTERFACE 



RE^ff1l5&FINEE 

TEGtiNQLOGY 

EQRPQRflTIQN 

3347 VINCENT ROAD 

PLEASANT HILL, CALIFORNIA 94523 

(415)930-7707 



NEC Dot Matrix Printer 

100 CPS 

Bidirectional printing 
Friction and tractor feed 
Parallel Interface 
Single ribbon cartridge 

ATARI 10-Key Accounting Pad 

NEC Monitors 

12" Green Screen 

12" RGB Color 

12" Composite Video 



795.00 



124.95 



285.00 

1095.00 

430-00 



I 



DEALER INQUIRIES WELCOME 
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Apple Bits, Part 3 



In this third and final part of the 
series, the author presents some 
applications, including giant 
letters and animation. 



Richard Vile, Jr. 

3467 Yellowstone Drive 

Ann Arbor, Michigan 48105 



This article discusses the use of the 
machine language driver program (Part 1 
of the series — September 1981) and the 
Pattern Maker program [Part 2 of the 
series — October 1981) in the creation 
of "animations" for the low-resolution 
screen. The major example considered is 
a program for converting the Lo-Res 
screen into a terminal that displays 
"giant" letters and other patterns. 
[Note: the information displayed is not 
passed on as commands to BASIC, 
although with some effort that could be 
accomplished.) 

Giant Letters — The Patterns 

The first step in creating any Apple 
Bits application is to design a set of pat- 
terns. In this case, the patterns will be 
letters and other characters that can be 
plotted on the screen when their asso- 
ciated keys are struck. The pattern size 
that works with the Integer BASIC pro- 
gram to be presented is 5 x 7. By suit- 
able modifications to that program (left 
as an exercise to the reader], other char- 
acter pattern sizes can be used as well. 

To design your character set, run the 
Pattern Maker program. Following the 
instructions given in Part 2, create pat- 
terns for each character on the Apple 
keyboard. You can also create patterns 
for keys which do not produce display- 
able graphics (control keys) . The Pattern 
Maker will accept control keys as well 



as normal keys. For example, for the 
keys "A,""?," and" 1G" (Control-G), 
you might use the following: 




When you are satisfied with your 
results, stop the Pattern Maker by typ- 
ing "Q" or "QUIT" and then BSAVE 
your patterns. This takes a little 
calculating. Suppose your pattern table 
was started at location 3072 [decimal, or 
SCOO hex) and the patterns are, of 
cotuse, 5 X 7 in size. To store the pat- 
terns for the characters Control- A 
through Z, you would consume 5 x 96, 
or 480 bytes. Thus, 

BSAVE LEiTERS,A3072,L480 

would do. Since I'm lazy and don't like 
to figure out exactly how much I need, I 
normally just reserve all the space from 



SCOO to SFFF for patterns — that is 
more than enough, even for 96 patterns 
of 8 X 8 characters. 1 simply use the 
command 

BSAVE LE1TERS,A$COO,L$3FF 

Once you have created your patterns, 
the program to "drive" the screen is 
shown in listing 1. Don't forget to set 
LOMEM: 

> LOMEM: 4096 

There are some generally useful 
points to note in this program. You may 
be able to make use of them in other 
programs of your own. 

In lines 10 and IS: 

10 GR: POKE -16302,0 ; 
COLOR = 

15 FOR 1^4010 47 :HLIN 0,39 
AT I : NEXT I 

The POKE statement selects FULL 
SCREEN graphics. This causes any in- 
formation already displayed on the bot- 
tom foiu lines of the screen to suddenly 
change to "living color." Line 15 
blackens the bottom four lines again. 



In line 12; 



12 



POKE 32,0 
POKE 34,0 



POKE 33,40 
POKE 35,24 



These statements set the "text win- 
dow" back to the full screen. But why 
do that? This is a graphics program, 
right? Yes it is, but it is also a text pro- 
gram as well — the letters are just a bit 
larger than usual! So when our screen 
fills with our maxi-alphabetics, how do 
we make room for more? The answer is 
simple: scroll! But, you say, you can't 
scroll the graphics screen. Want to bet? 
Look at line 60: 

60 FOR J ^ 1 TO 4 : CALL -912 
:COLOR = 0;HUN 0,39 AT 
47 : NEXT J 
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The routine at —912 is the normal 
monitor routine for text scrolling. It 
uses the settings of the window 
variables in locations 32 - 35 to deter- 
mine what portion of the screen to 
scroll. The GR statement sets these 
variables so that only the bottom four 
Imes will scroll. Our POKEs in line 12 
have fooled the monitor into thinking 
that the whole screen should be scrolled. 
The Apple wUl then scroll the graphics 
display, without a whimper. Since the 
lines which appear at the bottom during 
the scrolling process will be WHITE, we 
use the HLIN statement to re-blacken 
them. 

If you study the listing further, you 
will discover that the left and right 
arrow keys will function in a manner 
similar to their normal text interpreta- 
tion. In addition, the ENTER key will 
cause the display to proceed to the 
beginning of the next "line." The ESC 
key functions as a "Clear Screen" key. 
It also causes the next character to 
appear at the upper left hand comer of 
the display. I leave it to you to dig out 
the details of these points. 

A Random Walk 

The program of listing 2 presents an 
animation. It causes a "little" man to 
walk across the screen from the lower 
right comer to the upper left comer. The 
actual path taken is different each time, 
consisting of a random pattern of moves 
to the left and/or up. 

The data for the patterns of program 
2 is presented in listing 3. 

Computet Choo-Choo 

Listing 4 moves a locomotive across 
the screen from right to left. The train 
gives off "smoke" as it goes and 
periodically toots its whistle. The whis- 
tle is produced by calling a routine in the 
Apple Programmer's Aid ROM. If you do 
not have this installed in yom- Apple, 
you will have to locate and remove the 
CALL statements in the program. They 
could be replaced by CALLs to yotu^ own 
tone -producing routine. 

The data for the locomotive progam 
is presented in listing 5. 

Notes on Implementing Animations 

In both the random walk program 
and the locomotive program, only a 
small number of pattems was needed. 
Notice that the pattern selected for 
display by the programs at any given 
time is specified by a small positive 
number. For example, examine lines 
535 to 540 of listing 2- The way that the 



Listing 1: Large Letters Driver 

1 KBIi=-16384:CLR=-16368 
5 POKE 2048,5; POKE 2049,7 

10 GR : POKE -16302f0; COLOR=0 

12 POKE 32, O: POKE 33, 40: POKE 34, O: POKE 35,24 

15 FOR 1=40 TO 47: HLIN 0,39 AT K NEXT I 

20 ROW=0:COL=0 

22 C0LOR= RND ( 15 )-H 

25 GOBUB 700 

30 POKE 36, col: POKE 37, ROW 

35 POKE A0,C 3072+5*Kl ) MOD 256 

40 POKE 61,< 3072+5*Kl )/256 

42 COLOR= RND ( 15 >+l 

45 CALL 2058 

50 C0L=CDL+6: IF C0L<36 THEN 25 

55 COL=0;ROW=ROH+a: IF ROU<=40 THEN 25 

60 FOR J=l TO 41 CALL -9121 COLOR^O ; HLIN 0,39 AT 46J 
HLIN 0,39 AT 47: NEXT J 

65 C0LOR= RND ( 15 )+l 

70 ROW=40:COL=0: GOTO 25 
700 KEY= PEEK <KBD): IF KEY<128 THEN 700 
705 POKE CLR.O 
710 K1=KET-128 

712 IF Kl*27 THEN 718 

713 COL0R=0: FOR 1=0 TO 47; HLIN 0,39 AT i: NEXT i: 
C0LOR= RND ( 15)+1 

715 ROU=0;COL=0! GOTO 700 

718 IF Kl=13 THEN 785 

719 IF Kl=7 THEN 775 

720 IF (Kl»8 AND Kl*21) THEN RETURN 

722 IF Kl*21 THEN 725 

723 Kl=32: RETURN 

725 C0L=C0L-6: IF COL>=0 THEN 750 

730 COL=30:RDU=RQU-8; if ROW>=0 then 750 

735 ROW=0:COL=0 

750 COLOR=0 

755 FOR J=0 TO 7 

760 HLIN COLtCOL+5 AT ROW-^J 

765 NEXT J 

770 C0LOR= RND (15 Hi: GOTO 700 

775 PRINT ••••it RETURN 

785 RdU=R0y+8: IF R0«>=48 THEN 790 

787 COL=0: GOTO 700 

790 C0LOR=O 

792 FOR J=l TO 4: CALL -912 

793 HLIN 0,39 AT 46; HLIN 0,39 AT 47 

794 NEXT .J 

799 ROU=40;COL=0: C0LOR= RND (15)+i; GOTO 700 



pattems came to be associated with 
these numbers involves the Pattem 
Maker program. The control keys corre- 
spond to the numbers 1 through 26. 
Thus, when you use the Pattem Maker 
to create a set of pattems and record a 
particular one using, say, Conirol-E, 
then that pattem becomes the 5th pat- 
tem in the table. 



To set up the address of this pattem 
(so the machine language driver knows 
which one to display], the statements in 
lines 536 and 537 of listing 2 would be 
used. These are similar to the state- 
ments appearing in lines 60 and 65 of 
the Fireworks Animation presented in 
Part 1 of the series. 



Let's review the general form of the 
set-up instmctions: 

POKE 60, aABLE -i- OFFSET) 
MOD 256 

POKE 61,fTABLE-H0FFSET) 
/256 



where. 



TABLE — 
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represents the address Itl 
Apple n RAM of the very 
begirming of the Pattem 
Table. In all of our examples 
this has been 3072, decimal. 
However, it could be other 
values as well. 
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Note; The numbering of the en- 

tries m the table actually 
begins at 0. The 0th entry is 
inaccessible, since the Pat- 
tern Maker cannot accept a 
key whose character code is 
0. Also, the entry in the table 
which corresponds to the 
Control-C key [number 3] 
will always contain "gar- 
bage." This is the reason for 
the IF test in line 535 of 
listing 2. 

OFFSET —represents the distance |in 
bytes] from the beginning of 
the pattern table at which a 
given pattern may be found. 
This offset may be calcu- 
lated using the formula: 

OFFSET = WIDTH ' KEY 

where, 

WIDTH — is the width of 
the patterns in 
the table. 

KEY — is the number 
of the pattern 
you wish to 
retrieve. 
(Continued on next page) 



Listing 2: Random Walk 






5 MOyE=500 






10 GR : POKE -16302fO: COLOR^O 






15 FOR 1=40 TO 47: HLIN 0i39 AT i: 


NEXT r 




21 POKE 2048,8! POKE 2049,8 






32 POKE 36, RND (32): POKE 37, RND 


(40 ) 




35 [:OLOR= RND < 15)+1 






40 D= RND ( 2 ) 






45 IF D*0 THEN 55 






50 DX=oirY=-i: gosub move: goto 35 






55 IF D*l THEN 65 






60 dx=-i:dy=o: gosub move: goto 35 






65 IF D*2 THEN 75 






70 dx=i:dy=o: gosub move; goto 35 






75 dx=-i;dy=o: gosub move: goto 35 






500 COL= PEEK (36):R0U= PEEK (37) 






505 COL=C0L+DX: IF C0L<32 THEN ZW. 


GOSUB 600:COL=0 




510 IF COL::0 THEN 515: GOSUB 600:COL=32 




515 R0U=R0«+DY; IF ROU<40 THEN 5201 


GOSUB 60o;rom=o 




520 IF ROU>0 THEN 530 : GOSUB 600:ROIJ=40 




530 POKE 36, col; POKE 37, ROW 






535 KEY= RND ( 5 )+l ; IF KeY=3 THEN 535 




536 POKE 61,(3072+8*KEY )/256 






537 POKE 60,< 3072+S*KEY ) MOD 256 






540 CALL 2058 






545 FDR TIME^l TO 25: NEXT TIME 






555 COLOR=0 






560 HLIN COL, COL*-/ AT ROW+/ 






562 VLIN R0U,ROW+7 AT COL+7 






570 RETURN 






600 COLOR^O: FOR 1=0 TO 7: HLJN COL 


■ COl f/ AT RUWH: NLXI 


J 


610 RETURN 







Terrapin Turtle 



Be one of Ihe iirsl persons to own your own robot. Il's lun, and 
unlike other pots, the Turlle obeys your commands. It moves, 
draws, blinks, beeps, has a sense ol toucfi. anddoesn'l need 
to be housebroken. You and your Tutile can draw pictures, 
navigate mazes, push objects, map rooms, and much, much 
more. The Turtle's activities aro limited only by your imagina- 
tion, providing a challenge tor users oi all ages. Interfaces, 
including software tor easy control ol the Turlle, ore available 
for the Apple, Atari, and S- 100 bus computers. 

Terrapin will give a free Turlle lo the person or persons who 

develop the best program for tho Turtle by March 31, 1982. In 

addition. Terrapin will pay royalties. For more mformation, 

writcorcalb 

Terrapin, Inc. 

678 Massachusetts Avenue 

Cambridge, MA 02139 

(617)492-8816 

Boobs available from Terrapin 

Turtle Geometry by Abelson anddiSessa 

An innovative book using Turtle Graphics to explore 

geometry, motion, symmetry and topology. MIT Press $20, 00 

Mindstonns by Seymour Papert 

An exciting book about children, computers, and learning. 

Explains the philosophy ol the new LOGO language. Basic 

Books $12.95 



Actiiicicil Intelligence by Patrick Winsion 

Explores several issues including analysis ot vision and lan- 
guage. An mtroduclion to the LISP language is incorporated 
in the second section. Addison- Wesley $18.95 
Katie and the Computer by Fred D'lgna^io 
A children's piclure book adventure about a young girl's 
imaginary trip inside a computer. Creative Computing $6.96 
Small Computers by Fred DTgnazio 

A book about the future c! small computers and robots, aimed 
at adolescents. Franklin Watts $9,95 
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Voice I/O per^heral 
for the APPLE II 

COGNIVOX vio 1003 

$249 

Some specifications 

COGNIVOX can be trained to recognize woidsorahorT 
phrases drawn from a vacabulary of up to 32 enlrjes 
chosen by the user. 

Training COGNIVOX to your vocabulary is easy- All 
you have Td da Is repeal Ihe words three limea al ihe 
prompting of the computer^ 

[[ you would hke to haveCOCNLVOX respond to more 
than 32 words, you can hove Iwo or moie vocabularies 
of 32 words and switch back and for^h between them 

The Voice output vocabulary E:an have up to 32 words 
phrases. Data rate is approximalely 700 byte per woitl. 

It's the technology. 

Our Voice 1/0 peripherals are baaed an a lechnologicBl 
breakthrough that made ll possible to compress the 
required electrouLcs onio a single integrated circuit 
chip. We are the only company flo far that has achieved 
Ihis remarkable feat. No wonder we orter such 
reasonably price voice peripherals. 




In addition. COGNIVOX uses an exclusive nonlinear, 
learning pallEm matching algorithm to do speech 
recognition. Which means more reliable pErformance 
and ease of uae- 

Easy to use. 

All you need to gel COGKiVOX up and running is to 
plug ll in and load one of the programs supplied. Load 
the demo program and start talking Id your computer 
right away. Or load one of [he games and discover Ihe 
magic of voice control. 

It is easy to write your own Ulktng and listening 
programs too- A single statement in BASIC is all that 
you need to aay a word or to recognize a word. Full 
inslructians on how to do il are given in the manual- 

If you have a disk system, you can use j1 to save 
vocabularies. Inslniclions are given in the manual. 

Many uses. 

With COGNIVOX yaut imagination \a not the limit as 
the saying goes. It is the sterling point. Cognivox is e 
super toy, an educational tool, anaid to handicapped, a 
data entry device while hands and eyea are busy, a 
foreign language translator, a sound effects generator, 
a telephone dialing device, an answering machme. a 
talking calculator. Using Ihe IEEE 4aa pon you can 
control by voice instruments, plotters, test systems. 
And all these devices can talk back to you, telling you 
their readings, alarm condillons. even their name. 

Order your COGNIVOX now. 

To order by mail, give us Ihe model number af the unit 
you wish to order, the make and model of your 
computer and your name and address. Enclose a check 
or money order and make sure to include S5 for 
shipping and handling. CA residents please add 0% tax. 
You may also order by phone and chsrge il to yout- 
Master Charge ot VISA. Our phone number is (6051 
ea5-lflS4 QAM to 5PM PST. Monday through Friday 
Foreign orders are welcome, please add 10% for air 
mail shipping and handlingr Payments musi be In US 
Funds. COGNIVOX is hacked by an 120-day limited 
warranty against manufacluring defects. 

VOICETEK 

P.O. Box 388,Goleta, CA 93116 



Listing 3: Little Men 










OCOO- FF FF FF 15 IF 7E 


7C 


78 






OCOS- 84 48 2B 3F 4B 88 


10 


00 






OCIO- 00 78 4B 3F 2B 48 


84 


00 






0C18- 48 77 41 5D 41 77 


78 


3C 






OC20- 00 98 CB 3F 6B C8 


04 


00 






0C28- 00 10 88 6B IF 2B 


CC 


80 






0C30- 5P 7F 08 IC 2A 49 


08 


01 






0C38- OF 08 78 40 6C 64 


7C 


64 






OC40- 6C 78 48 7F 09 OF 


7F 


41 






0C48- 49 41 7F 59 49 6B 


49 


4D 






OC50- 7F 49 iB 47 7F 7F 


49 


7F 






0C58- 49 7F 77 41 77 41 


77 


7F 






OC60- 49 00 47 7F 22 55 


49 


55 






OCAS- 22 10 18 IC 18 10 


41 


63 






0C70- 77 63 41 7F 3E IC 


08 


00 






0C78- 00 08 IC 3E 7F 08 


IC 


3E 






Lfst/ng 4: Locomotive Program 










1 MUSIC=-10473 










2 POKE 767»40: POKE 766»30: POKE 


765 


,32 






5 MOVE=500:S«OKE=22 










10 GR : POKE -lA302rO: COLDR=0 










15 FOR 1=40 TO 47: HLIN 0,39 AT i: 


NEXT I 






21 POKE 2048»8J POKE 2049»8 










32 POKE 36»20! POKE 37,24 










33 CC= RND ( 15)+1 










35 COLOR=CC 










40 D=l 










50 dx=-i:dv=o: cosub hove 










55 GOTO 35 










500 COL= PEEK <36):R0M= PEEK (37) 










505 COL=COL+DX: IF C0L<32 THEN 510: 


GOSUB 


600:CQL=0 




510 IF COL>0 THEN 515: GOSUB 600:COL=3 


2:cc 


= RND <15)+1 




515 REM 










530 POKE 36»C0Lt POKE 37. ROW 










535 KEY=1 










536 POKE 61,<3072+8»KEY)/256 










537 POKE 60»(3072+8*KEY) HOD 256 










540 CALL 2058 










542 GOSUB 800 










545 FOR TIME=1 TO 25: NEXT TIME 










550 IF RND (25)=0 THEN GOSUB 700 










555 COLOR=0 










560 HLIN C0L,C0L+7 AT ROU+7 










562 VLIN ROUtROU+7 AT COL+7 










570 RETURN 










600 COLOR=0: FOR 1=0 TO 7! HLIN COt 


rCOL+7 


AT ROy+i: NEXT 


I 


610 RETURN 










700 CALL HU5IC 










705 POKE 766 » 100 : FOR 1=1 TO 50 : NEXT 


I 






710 CALL music: POKE 766.301 RETURN 










800 PLOT COL+lfSHOKE 










810 COLOR=0: PLOT C0L+2rSH0KE+l 










815 IF SH0KE=22 THEN PLOT C0L+2»1 










818 IF C0L=32 THEN PLOT 2fSM0KE+l 










820 SH0KE=SM0KE-1 










830 IF SHOKE=0 THEN SM0KE=22 










840 RETURN 










Listing 5: Train 










OCOO- FF FF FF 15 IF 7E 


7C 


78 






OCOS- FC BF FC 3C FF B7 


F9 


IF 






OCIO- 7ti FD FO 78 70 FF 


F2 


3E 






OCia 48 77 41 5P 41 77 


78 


31: 
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What is VersaWriter? 

VersaWriter is an inexpensive drawing 
tablet for the APPLE II that lets you 
trace a picture and have it appear on 
TV display. 

VersaWriter is a comprehensive 
software drawing package which lets 
you color in drawings with over 100 
different colors. 



VersaWriter is a shape compiler that 
converts anything on the screen 
automatically into a standard shape 
table. 

VersaWriter is a text writer for labeling 
pictures with text in six colors and 
five sizes. Use English or Greek, 
upper or lower case letters. 



VersaWriter is much more! Draw with 
brush, create schematic drawings, 
compute area and distance, edit pic- 
tures, save, recall and more. 

VersaWriter requires ROM APPLESOFT 

and 48K memory. 

$299 Suggested Retail 

UNIQUE OFFER 

Send us YOUR disk and $1 . We will promptly 

return the disk with a slide package of 10 

color pictures drawn with VersaWriter. 





^^^- 



"* '8 t 3e[> 

12— 19 t 2<}31V>. 
13 2B i ^32^^350 



D Enclosed is $1 and my disk. 

Send me the slide package. 
D Send more information including 

VersaWriter dealers In my area. 

DEALER INQUIRIES INVITED. 



ADDRESS 



Send To: Versa Computing, Inc. • 



en V STATE ZIP 

887 Conestoga Circle • Newbury Park, CA 91320 • (805) 498-1956 
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DithcrtiZGi 




..tlUZGVCOF 

ur apple: 



▼;• 



Though il is very simple lo use, the Dithertizer II represents 
the ultimate In video digitizing using the Apple II 
computer. The Dlthertizer Is an Interlace cord which 
converts video input Irita digitized Images. Because the 
Dlthertizer II Is a frome grabber, DMA type digitizer, it 
otters extreme high speed in the conversion process (it 
grabs an entire frame In 1/60th ot o second). The camera 
supplied with the pacl<age is the Sanyo model VC16iOX. 
Cabling Is supplied for this camera so as to have the 
Dlthertizer II system up and running in minutes. The video 
camera used lor input musf have external sync to allow 
lor the Irome grabber technology employed for digitizing. 
II a camera other than the model recommended is used, 
wiring adaptations by the user may be required. Software 
Is supplied with the board to allow you lo display up to 64 
pseudo grey levels on your Apple's screen. The number 
ol grey levels may be changed with one keystroke, Ihe 
Intensity and contrast ot Ihe Image are controllable via 
game paddles. Also supplied Is software tor Image 
contouring lor those interested in movement detection 
or graphic design opplications. 



Th* Dllhertber II package l> ovaltable ready 
to run with camera, Interlace card and 
ttie software described above for only: 

Dlthertizer II Interface card 
and software <wlttioul comera); 



$650. 
$300. 



Computer Station 

11610 Page Service Dr. 

St. Louis, MO 63141 

(314)432 7019 

Apple II IS a registered trademark ot Apple Computer. Inc. 
Dithefthi?er II is a (raflemafk of Cotnouler Station. Inc. 




OHIO soiEnmnc 

ONE TIME CLOSE OUT 

CIDMF 20 K 

SERIES 2 

LIST 1399,00 

CLOSE OUT 

999.00 

Closing out only on 
Personal Comp. 

Discontinuing our personal computer line 

CLOSE 
LIST OUT 

C-4P Color Computer 995.00 740.00 

CD3P Add on mini 

floppy 450.00 350.00 

C4P DF 48 K Dual 8" 3199.00 2400.00 
Micro Line 80 Printer 699.00 450.00 
TV Monitors 149,00 99.00 

Wilt ship the same day UPS 
C.O.D. collect 

Fessenden Computer Service 

116 N. 3rd Street Ozark, MO 65721 
Phone: 417 485-2501 



I 
^1 



I 99 00 



COMPUTER SYSTEMS CONSULTANTS, INC. 

1454 Latta Lane, Conyers, GA. 30207 

Telephone 404-483-1717 or 483-4570 

SOFTWARE DEPARTMENT 

(ALI. PROGRAMS PROVIDED IN SOURCE OH OlSK SPECIFY S'/B 1 
SUPER SLEUTH DisassBmWer Sysiem (lor PLEK ■ syslems) ' 

-runs on 6800^1/9. analyias SB00/1'5.'9 ana 650J 

-easy lo use, aelt-inBlruciive, wiih 42-pa9e manijal 

-aulomalie laBcIs, opiional FCB. FCC. FOBS 

— inpul binary Ifle Irom O15V or from rnemory 

— memdr/ ctiariges 10 program Ihru lull-screen edilor 

— oulpul flisK Me may be BourCB or new binaiy <'^e 

—commands Irom menu or from and lodisl( lile 

—ganerales FLEX' and user.delined names 

— includes assembler language XREF program 

-conlaci SMOKE Of CERCOMP tor non-FLEX" syslems 
Z.80/8080/90S5 OisassemDJei (Stmilar 10 SLEUTH) 

—runs on 6BO0yi»9. aoalyies Z.aOIBOeo/90B5 
6800(1 6805. 6502.Z-ao,80eo;s Cross-assemblers EACH 

-macro sals lor TSC 6809 l^acro Assembler ANV 3 

FULL-SCREEN FORMS DISPLAY lor TSC 6809 X-BASIC 

-display and odrt tor lerminals arW video displays 

—complete cursor conlroL lor screen inpul/oulpirl 

—interactive lorms generalorrdocumenlor provided 
FULL SCREEN I^AILING LIST Sysiem ro' TSC 5809 X-BASIC 

—lull screen update and seleclior^ 10 prini or labels 
TABUL.A RASA Tabular Calculation Ptogram 

-similar to VISICALC (TM. Personal Soilwsrel 
TSC BASIC Resequercing and XREF Programs 

— orocesses TSC BASIC. X.BASiC. PC. XPC programs 

-partial and blanh-reseqkrence caoabi lilies 

— alpbabeliieO irBl ot all variables and BASIC verBs 
TSC X-BASIC DISK SORTyuERGE Generator 

— generalBi TSC "PC BASIC sortmBrge programs 

HARDWARE DEPARTMENT 

(ALL BOARDS BARE WITH FULL DOCUMeNTATION PROVIDED) 

I/O SELECTRIC INTERFACE BOARD (sSrial or paradell i 35 00 
-ASCII (TTL or RS-232' CTSI in, 26-50v solenoids out 

—270B PROW Willi Correspondence ball codes J 15 00 

SS.5') WIRE-WRAP BOARD (52-16 pm equiualenl) S 2S00 

SS-30 WIRE-WRAP BOARD 132-16 pin enuivalenll S 1 5 00 

SS-30 DUAL ACIA BOARD (modem control ■ Baud rate gen| S 30 00 

SS-50 FRONT PANEL DISPLAY BOARD (16 decoded LEDS) I 10 00 



S B9 00 

S 50 00 
S>00 00 
! 50 00 



S 10000 
SlOO 00 
S 25 00 



J jsoo 



VISA and MASTER CARD preterred' account. 8>p date, ptions no 

US lunOs only: Add 7,5% (15°* Forelgnl tor postage 9. tiandlrng. 

For Catalog or daatei discount Inlormallon contact Bud Pass 

■FLEX IS a trademark o( Teotinical Syslems Consultants 



110 



MICRO - The 6502/6S09 Journal 



No, 42- November 1981 



i 




A STATISTICAL ANALYSIS 

AND FILE MAINTENANCE SYSTEM 

FOR THE APPLE IP** MICROCOMPUTER 

As a Subset Language of P-STAT™ 78... 
A-STAT™ 79 compules: 

FREQUENCIES 

BI-VARIATE TABLES - CHI SQUARES 

CORRELATION MATRICES 

MULTIPLE REGRESSION 

RESIDUALS 

APPLE PLOT INTERFACE 

APPLE RLE CABINET INTERFACE 

FILE SORT 

AQQREQATION 

REPORT WRITING 

COMPLETE TRANSFOHMATION LANQUAQE 

HEADS VISICALC FILES 

A-STAT" 79 

Uses Standard DOS Text File and EXEC's 
"tSK Version — All programs in Applesoll"" 

A-STAT^" 79 is available from: 

ROSEN GRANDON ASSOCIATES 

7807 Whittler Sttset 

Tampa, Florida 33E17 

(813)985-4911 

A-STAT™ 79 on disk with 80-page manual... SUS.OO 

Appig II fin IS a Irademarh o[ Ihe Apple Computer Inc. 
P-STAT '"• 78 IS a (rademark of P-SIAT Ins , Pilrcelon. N.J. 
A-STAT Im 79 is copyilghlBa by Gary M. GranOon. Ph.D. 



ED-SCI STATISTICS 

FCm THE PROFESSIONAL A COMPLETE STATISTICS 
AND DATA MANAGEMENT PACKAGE 



Data Entry and Filing 

• By Variable Name and 
Case Number 

•One-Time Data Entry 
»Easy and Rapid Editing 
»Data Entry Worksheets 

Data File Manipulation 

• Add New Variables 

■Add or Delete Case Values 

• Create SUBFILES By User 
Defined SEARCH S 
SELECT Criteria 

■ Merge Files 



Statistical Calculations 

• Mean, Std. Dev., Std. Error 

• Coefficient of Variation 
■ Frequency Distribution 
"Unpaired t-Test 

• Paired t-Test 

• Mann-Whitney U Test 

• Wilcoxon Paired Sample Test 
•Chi-Square Test 

• Linear Regression 
•Correlation 
•One-way ANOVA with the 

Newman-Keuls Test 

• Hard Copy of Data & Results 



Statistical Calculations can be made on VISICALC* (OIF) 
and DATADEX ' FILES. Graphic Plotting of all ED-SCI 
STATISTICS Data Files can be done with APPLE PLOT.* 

Only $95,00 brings you the ED-SCI STATISTICS instruction 
manual, the Master Program Disif, and a Back-Up Disk. 

See ED-SCI STATISTICS at your local Apple Computer store. 
Dealer inquines invited. For information please phone or write: 

Ed-Sci Development 
460 Beacon St. San Francisco, CA 94131 (415) 282-7020 

ED-SCI STATISTICS requires an Apple II with Ihe Applesoft or 
Language Card, or an Apple ll-^, 48K memory, and at least one 
disk drive with DOS 3.3 (16 sector). 

■AoDle IS a registered trademark ol Apple Corrputer Inc. 
VisCatc is a registered trademark ot Personal Soltware Inc. 
DATADEX is a registered IfademarV ol Sonoma Sollworks. 




CRAE 2.0 - A fast co-rasidBnt Applasofi Editor lor Applesoft 
Progiammers. Now perform globaf changes S finds to anything 
in your Applesoft program. Quote (copy) a range of lines Irom 
one part of your program to another. A fodv optimized stop- 
list command that lists vour program to the screen with no 
spaces added and fott/ columns wide. Append Applesoft 
programs on disk to program in memory. FoimatteO mem 
ory dump to aid debugging. Powerful renumber i5 five times 
faster t+ian most avaiiable renumber routines. Auto Jine num- 
bering. Crae need be loaded of^ly once and changes yOJf 
Aoplesoft program right in memory. 4BK APPLE II or PLUS 
& Applesoft Rom Si Disk. 
CRAE on disk with 20 page manual 539.85 

MCAT 2.0 — MCAT 2.0 is a fast binary utility which creates 
a sorted master catalog which is saved on disk as a binary file 
(FastJ- The master catalog can be easily updated a whole disk- 
ette at a time (Add, Delete, Replace], List/Print have global 
search capability and one or two columns. Provisions for dup- 
licate volume numbers. Approximately 1200 file names., 48K 
or 32K, 13 or 16 sectors DOS suppotted- 
MCAT on disk with 10 page manual S24.95 

CRAE and MCAT on one disk $59.95 wilti manuals 

EROM ffl - Requires Applesoft FiOM & ROMPLUS, CBAE'S 
powerful Global change/find, optimizes List Command, Hex 
to Decimal and Decimal to Hex conversion now available on a 
2716 EPBOM, 
EROM m with manual S49.95 

EROM M2 - (Requires Applesoft FIOM and Romplos) CRAE's 
Autoline numbering, formatted memory Dump, Append, 
Number conversion (Hex/Dec) on one 2716 EPROM. 
EROM H2 with manual $34.95 

EROM /43 — CRAE'S powerful Rer>uml3er and Quote function 
now on two 2716 EPROMS, 

EROM t43 with manual $34,95 

EROM 1.2.3 S99.95 

Mote: All Eproms are compatible with,P.L.E. 

Note: Append only requires 4SK and DOS. 

OLDORF'S REVENGE - OLDORF is a well done andexcitingi 
Hl-Has game using over 10Q HI Res pictures, OLDORF re 
quires 48K, Applesoft Horn, and Disk, As you explore thei 
caverns and castles {each locale is done In Hl-Fles) looking for^ 
traasure, you must battle the one-eyed, two thumbed torkie; 
find the grezierlips' svuord- visit the snotgurgle's palace and get 
through the domain of the three-noseO ickyup — Plus MOREl 
OLDORF on disk £19.95 

TARTURIAN-TtieTARTURIAN requires 48K RAM Apple- 
soft ROM, and disk. As you explore the 160 rooms (each done 
in Hl-Res) gathering weapons and treasure that will prepare 
you for the final battle against the TARTURIAN. you will 
enconter deadly KROLLS, battle the MINOTAUR, decipher 
the yUMMY YAKKY'S secret, make friends with the TULIE, 
SWEEP, avoid GHOULS, explore the PILLAR tombs, discover 
secret passages and more. 5 interlocking proarams. 
TARTURIAN on disk $24.95 

CREATURE VENTURE - You have just Inherited vour 
Uncle Stashbuck's mansion but first you must rid it of the 
horrible creatures that have taken it over and find your uncle's 
buried treasure- 
Directing the computer with two worij commands such as 
'Go North', 'Get Key', 'Look Room', 'Punchout Boogeyman' 
etc, you will need to explore deep Into the mansion to finally 
find theStashbuck fortune- 
There are tons of High Resolution graphics plus some clever 
animation iust for fun. Required 4BK Ham, Applesoft Rom 
and disk. All High Resolution characters generated with 
Higher Graphics II by Robert Clardy, 
CREATURE VENTURE on disk $24.95 

See Your Local Dealer or Send Checks to 

HIGHLANDS COMPUTER SERVICES 

14422 S.E. 132nd ■ Renlon, WA 98056 " (2061220,6691 

Washington residents add 5,4% sales tax, Applesoft and Apple 

are registered trademarks of Apple Computers, Inc, 

ROMPLUS is 3 trademark of Mountain Computers, Inc, 

(Dealer inquiries invited) VISA, MaslerCMarge, COD, 



No. 42- November198l 



MICRO - The 6502/6809 Journal 



111 



AlCftO 



Hardware Catalog 



Name; Dynamic Memory 

Module, CMS 6505 

Memory; 65K x 9 Dynamic RAM 
Description: 65K x 9 dynamic 
memory module, addressable in 
segments |4K increments), parity 
generation and check, on-board refresh, 
write protect, over voltage and reverse 
polarity protection, selectable speeds, 
directly compatible with 6500/6800 
families. 6" x 9.75" module, uses 
only 5 watts power. 
Price: $526 in single piece 

quantity 
Available; General Micro Systems 

1320 Chaffey Ct. 

Ontario, CA 91762 

(714( 621-7532 



Name: Mode! Q160 

Memory; Standard 2K buffer 
memory; 4K option 
Description; The Model Q160 is the 
printing mechanism used in Computer 
Devices' Series 2000 portable computer 
terminals and printers. So lightweight 
— weighing only 3.5 lbs. — it's ideal 
for OEM use. Its special 1 x 11 dot 
printhead, developed from the most ad- 
vanced thin film technology, generates 
5x9 dot matrix characters with true 
upper/lower case letters and the 
underscore/overscore. The Q160 can 
give true 120 cps throughput because 
it's designed to print bidirectionally at 
160 cps. It also has an 80/132-column 
selectability built in. 
Price; $995.00 

Available; Computer Devices Inc. 
(Early 4th quartet; 
60 days ARO| 
25 North Avenue 
Burlington, MA 01803 
1 800) 225-1230 



Name; EP12 Interface for MX-80 

and Apple 
System; Apple II, Apple III with 

SOS 
Memory: Any size 
Language; BASIC, Assembler, 

Pascal, others 
Hardware; Epson MX80, MXlOO 

printers 
Description; The EP12 interface 
features a wide variety of text options 
plus ability to print anything you see 



on the screen — text or graphics. 
HalfTone^'^ mode lets you print in 
shades of gray. SPECIAL CHAR- 
ACTERTM mode lets you create your 
own print symbols. SuperRes^'^ 
graphics gives you 960 x 792 point 
plotting. 
Price: $165,00 includes cable, 

manual, print sample 

disk. 
Available: Interactive Stmctuies, Inc. 

112 Bala Avenue 

P.O. Box 404 

Bala Cynwyd, PA 19004 

or your Apple dealer 



Name: RS-232 Interface Kit 

System: Ohio Scientific 

Superboardll or CIP 
Description; This kit, offered by Dee 
Products, contains all the hardware 
needed to add RS-232 input and output 
capabilities to either the Superboard II 
or CIP. When these computers were 
produced, Ohio Scientific included the 
printed etches for a RS-232 interface, 
but not the components to use it. Ad- 
ding this modification is simple and 
straightforward by following our well- 
illustrated step-by-step instructions. 
Also included at this price are the 
details for hooking up the popular 
Radio Shack Quick-Printer II, and 
interfacing with modems. Printed cir- 
cuit quality solder included. 
Price: $9.95 ppd. 

Available: Dee Products 

150 Birchwood Road 
Lake Marian, IL 60110 



Name: Soundchasef 

System: Apple II Plus 

Memory: 48K 
Language: Applesoft, Assembly 
Hardware; 3 Voice Synthesizer 

Cards, Music Keyboard 
Description: Soundchasei transforms 
Apple n into a dynamic polyphonic 
synthesizer and sequencer. The music 
keyboard allows live entry of composi- 
tions which can be recorded with one 
sound and accompanied live with 
another sound. Sounds can be con- 
structed by drawing waveforms and 
envelopes on the CRT with game pad- 
dles or a joy stick. The Voice cards in- 
corporate 3 state of the art analog 
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filters, oscillators and amplifiers for 
dynamic natural sounds. All sounds 
and sequences can be stored on disk for 
future use. The system is menu driven 
for quick and easy access to the sub- 
systems. 
Price: $1350.00 for 6-voice 

Sound chaser, keyboard 

and software 
Available: Passport Designs, Inc. 

785 Main Street, Suite E 

Half Moon Bay, CA 

94019 



Name: Super Music Synthesizer 

System: Apple 

Description: Complete 1 6-voice music 
synthesizer on one card. Program 
music with our "Compose" software. 
Our manna! shows you how, step by 
step. The Hi-Res screen shows what 
you've entered in standard sheet music 
format. Four white noise generators 
(great for sound effects]. Plays music in 
true stereo as well as true discrete 
quadrophonic. Envelop control [volume]. 
Will play songs written for Alf syn- 
thesizer. (Alf software will not take ad- 
vantage of all the features of this board. 
Their software sounds the same on our 
synthesizer.] 
Price; $159,00 — Texas 

residents add 5% sales 

tax 
Available: Applied Engineering 

P.O. Box 470301 

Dallas, Texas 75247 

(214] 492-2027 



Name: W7AAY RAE to KMMM 

Interface 

System: Synertek SYM-1 with I 

or 2 floppy disks 
Software; Synertek's RAE and 
Wilserv Industries' 
KMMM disk operating 
system. 
Description: Interfaces RAE to the 
KMMM DOS and provides the follow- 
ing commands for use from within 
RAE; Save file, Update file. Load file. 
Append file, Delete file, display disk 
volume contents, and exit to KMMM 
monitor. Supports assemblies con- 
tinued on disk. Fully documented RAE 
source code supplied on 5'A" disk or 
cassette tape. Specify which. 
Price: $15,00 ppd, USA 

Available: John M, Blalock 

Blalock & Associates 
P.O. Box 39356 
Phoenix, AZ 85069 
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GET FREE SOFTWARE FOR YOUR APPLE !| 



HOW? JUST ORDER ONY OF THE ITEMS BELOW. AND SELECT YOUR FREE SOFTWARE FROM THE BONUS 
SOFTWARE SECTION, USING THE FOLLOWING RULE: FOR THE FIRST SlOttOO WORTH OF MERCHANDISE 
ORDERED TAKE 1 ITEM; FOR THE NEXT $200.00 WORTH OF MERCHANDISE ORDERED TAKE ANOTHER 
ITEM; FOR THE NEXT S30aO0 TAKE A THIRD iTEM, ETC. ALL AT NO COST. 



HARDWARE BY APPLE 

APPLE II PLUS, 4Bk n99 

DISK dhive'Contholleu lasi sas 

DISK [iniveonly 4SE 

Language System w. *'&sal 397 

Silenlype Printer & Interlace 360 

I rtreger oi* Applesoft Firmware Card ^68 

Graphic! Tablet 64G 

Parallel Primer InceHaceCard 14B 

Hi-Spesd Serial Card 155 

Centronrci ^Faliel InrTce. 175 

HARDWARE BY OTHERS 

HAYES MICROMODEW II 3D0 

HAYES SMART MODEM 239 

HAYES SUM MODEM 339 

VIDEX VIOEOTERUSOW. GRAPHICS 275 

MICROSOFT Z80 SOFTCARD 3M 

MICROSOFT 16K RAMCABO 159 

CORVUS 1DMB HARO DISK 4750 

SSWA10SERIAL/PARALLELA&T IBB 

MICHOSCIOiikSiCaniiTilln 496 

TYMAC DOUBLE DOS ai/^3 36 

VIDEO MONITORS 

L»dei Vk)ao-T0012" B&Ww/Cible 139 

Lttdex 12" Grgen «r/Cable 165 

L«dei 13" COLOR MONITOR ft CUIa 399 

SUP-R'TERM RF MODULATOR 29 

HARDWARE BY 
MOUNTAIN COMPUTER 



SOFTWARE FOR APPLE 



APPLE FORTRAN 

APPLE PILOT 

DOS 3 3 

DOS TOOL KIT 

APPLE PLOT 

D J. REPORTER 

D. J. NEWS 

PORTFOLIO 

SHELL GAMES 

ELEMENTARY DEAR APPLE 



159 
125 
HI 

ee 

58 
45 
45 
45 

25 
25 



WORD PROCESSING 
SOFTWARE FOR APPLE 



SOFTWARE BY OTHERS 

APPLE FORTRAN by MICBOSOFT 168 
APPLEBASICCOMPILERbyMICflOSOFT 31S 

APPLE COBOL by MICROSOFT 590 

WISICALCas 168 

VISIPLOT 155 

VI St PLOT/VISIT RENO 199 

VISIDEX 188 

CCA DATA MGT. 79 

DB MASTER by STONEWARE IBS 

OATACAPTUBE 4.0 BS 

Z-TEBM 56 

ON-LINE APPLESOFT COMPILER 89 



SOFTWARE BY PEACHTREE 



ClooWCaleraw CiH-a 
A/D a D/A Intedace 
Expansion Chasan 
ROMplui Ord 
Mark SsriB Card Rggdar 
CPS MuKHundion Bd 



239 


GEN. LEDGER 


311) 


A/R 


ttA 


A/P 


yjb 


PAYROLL 


996 


INVENTORY 


■av 


MAIL LIST 



219 
219 

21 a 

219 

219 
219 



PEN- ULTIMATE 


235 


WORD STAB 


2i& 


E2WRITEBP.ol.Syv 


1% 


EZWRITEB 


89 


MUSE SUPER TEXT1I 


139 


APPLE-WRITER 


fifl 


PROCRAMUA APPLE PIEZO 


110 


MAGIC WAND 


:t4!i 


WORDPOWEB 


50 


EPSON PRINTERS 




MX-70w/Gr»f[r«> 


416 


MX BO 


hit) 


MX - 80 FT 


615 


MX-80W. GBAFTRAX 


575 


MX - BO FT w. GBAFTBAX 


<>7h 


MX- 100FT*. GBAFTRAX 


776 


APPLE PAR. INTFCE (lorHI E(»pn) 


76 


MX-7a/80 FRICTION FEED AdBRUi' 


/b 


OTHER PRtNTERS 




IDS 446 w. GBAPHiCS + 2K Bulf. 


75(1 


IDS 480 W.GRAPHICS 


098 


IDS 460 


83E 


IDS 560 


1008 


IDS 660 v.. GRAPHICS 


1160 


CENTRONICS 737 


688 


CENTRONICS 730 


7fle 


CCS Cmtronici Pir. Inttce Ii CabIa 


1% 


NECSPINWBITEB6610BO 


2796 


C ITOKKCPSDAISVWHEEL 


1760 


C ITOH 45 CPS DAISY WHEEL 


xm 


WATANABE MI-PLOT PLOTTER 


1150 


DIABLO 638 DAISY w. P, WhHl & Rilk 


2350 



BONUS SOFTWARE SECTION! 



L«t ua Koualnl yWj «<ih MfSSAGE-MAKING SOFTWAHC. Jurtplaca ih* dkk In On APPLt, •nt» Uw T»Mt ""d colorful, dyoBprilc mai»B*i app*«r 
on th» KTHrti o* TV tata conn«MiJ to th» compuKf, U« ih» ■fifiman to broadcaci m m — i on TV i^Hni In vcnooJi, noti^lu^ lacwin. rtor» 
window, anhlbh boolhi, aic Th« following progrim li our lalaft ralaata: 

SuPEfl N4ESSAOE: CrHtai mB«u0M In fulkp^vi "chunW- Eic^i mt— gi Mlowi nnnwnti of rnlv«d tvpHTv>"ir typ^ilzM "nd colcri, (n mh4*d 
uppar and lowtf cm. St¥l« 'tn^^ f rom rtef^^ APPLE ch^rKlvi. up » doiibJt-Mii, doubl*-wldTh chvocnri v,nti « Iwntv, how font SIh ea»v« miy 
be UHd tor BBcn dllfaj-anT Tvpaityl*- Verilcvl and hoflfonul csnorlng *'• mvmWtbi*, vid wofd-wrip >iiutom«lc. Uwf i »n chaFn p«ttH no*ihw n 
rriake mylttp^s. mn*a«*L PiflHcin tx •dy>nc»d manu«lLv Of lu nin>tt lully. Muttkpwa m — Q M cMi b««or»d to dite of r*«llvl Inrtvtlir- 

HEQUIRES 4eK «• ROM APPLESOFT »0a 

APf LE PLOTS YOUR DATA S, KEEPS YOUR RECORDS TOOl APPLE DATA GRAPH 2.1: Floti up to 3 njpwImpoHd cufv« on th» HJ-'M S<3»»n 
both X * V axtt dlnvnilDnad. E»ch curv* contliTi of up to l30Dl«c««af data, Qrtp^ =•" b* itorad to dlvcand racallad Imrr^diawry for upditlno. 
Up to 100 graph! can Da ilorad on th« Hm> dlw Gr^t lor Snck-mvli«t Chirtlno. DvainHi tMftftrmnt. and CIsivoQm inatTuciltyir 

REQUIRES 48K & ROM APPLESOFT - %M 

APPLE RECORO MANAGER: AMowt complav fll« to b« brouyht Inrt mBmory » that racord lavohn mnil manlpulaEtona ■'* LnatantvwouL 
PBcordi HlThJn any IJi* can contain up tP ?0 flalch. with utaf-daftnad haadlnoi. inlofmaKOn cao ba iTrlno or numaric Uiv'i »n Ivowta rhru fJtat 
uilng paB»'or«"'d, paga-backward or random-i«rch command., ftacorda un aailly ba aaarchad, aLfarad or aortad at wklk. Fllia can b* rtftrad on iha 
lama drlwa a* tha mavlw program, or on anotfiar, if a aaconddrtva li aval labia, Racordaof fllatcan ba prlntad. If daalrad. Additional modulai comlrq 
araaSTATJSTICSmiERFACE, CHECKBOOK, MAILING LIST ft OATA-ENTRV. 

nEQUIRES 4AK B. ROM APPLESOFT MO 

APPLE LITERATURE DATABASE: aliowi 'apkl ratrtawal (vTa kaywordi] o* rafarancaa from CPial APPLE litafatura Thru tVBO. on D.2D" dlih. Each 
antry hi tha data bam cOfiiiM of Iha articia, authm-'iamf. parlodleal-nama, data of Iihj*. A pan* non Tfia daUbata ii Inwidad to lupport \mm m^a- 
linania* whLph would raquira (artgthy manual HVching » racovar information. Annual upd*t» will ba avaiUbla. 
FlEOUlRES 46K, ROM APPLESOFT. ...,,..,.., 9^0 

WORDPOWEP; ii ■ ilmpl^ powBffui, tow coi^ lina-orianead wOrtJ-pfOcaaaof prorafn. It offari a faft machlna Iki^mpa FiMO A REPLACE. T«xlcw> 
ba liitad to icrav^ or printer, with or without lln»nun%b«ri. LoA«r-ca«a adapiori ara tupporsd. Vou can mtrga fJ laB, mova e'oupi of iina^ and *«iJv 
add, cPwnoaH or daleta linat. AORDPOWEH can Eh uaad to craata and maintain ExECfil*L llcari aiao ba uiad ai a 'apTd. unairuciurad, irttormalion- 
noraga and ratrlaval lynamvla Itt rapid taarch capahlMilaa. 

nEOUIRES: 4aK. nOM APPLESOFT ftbO 

LAOELMAKER: allom i^tart to qu^kly craata addraii FabaU A ghran labal may baoanwawKn any Quantity from i to 337e7, Spaca la allowad on 
laba^i 'C- a pBfaon*] and company nama, but tha tpaca li au«>maTlcB<l¥ ctotad up H only a par»ertaf nanw tn aniaratL Spaca 4i ai»o ahowad for 'oralgn 
CDuntT|«L Tht prtflram can alao flartafita labali for prica-Ugi. part numba't and mall-ma<aaBa« tucft ai "HUSH", "FRAGILE , aic A aarf- 
Jncramantlng faature allouwi thaitra-tlchat* TD H producad, with a data, and num»*a running from aOOO lO cMCb An aditH ii prwidad for ■dill«« 
labBli prior to printing. All labali may ba iiwad to dlikfpr Innvit racalL 
REQUIRES 4eK& ROM APPLESOFT tSD 



TO ORDER: Use phone or msU. We accept VISA. MASTERCARD, COD% penoiul 
checks Sl nH>ney orders. Add 4% for credit card. Customer pays handting on COD orders, 
Foreign orders must be in American Dollars & include L0% for handling. Connecticut 
residents add 7.5% sales tax. 



CONNECTICUT INFORMATION SYSTEMS CO. 
218 Huntington Road, Bridgeport, CT 06608 (203) 579-0472 
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PUTS 
YOU 



ON TOP 



Organize your business with 
^^^»# accounting software from SBCS: 

W^^^^K * General Ledger 

• Accounts Receivable 

• Accounts Payable 

The above programs can be used alone or inte- 
grated. They include extensive error checking 
and data entry prompting, numerous reports, 
departmentalizing, and budgeting. Detailed doc- 
umentation included. 

Get on top of things! Call or write today. 
SMALL BUSINESS COMPUTER SYSTEMS 

4140 Greenwood, Lincoln. NE 68504 (402) 467-1878 




LOGICAL SOFTWARE, INC. 

PROUDLY PRESENTS: 

MAIL EXPRESS 

A MAIL LIST PROGRAM FOR THE APPLE II. 

An easy lo usa. powertul maiimg lisl utilily thai can be used by com- 
panies Of individuals to srore the Name, Address, Telephone number ol 
clients or fnends. 

MAIL EXPRESS provides User Definable Codes lor City. Stale and Zip. 
These Codes shorten the (ime required by yoj 10 type in names lo your 
mailing lisl and save room on ine disk' 

— Store up to 2,200 names pet dish 

— Sort 3 file in 30 seconds 

— Prints Return Addresses 

— Mactiine Language Find Routine wiil search for any Informa- 
tion included in Ifie tile in seconds. 

This is an easy lo use prolessional Quality mail list able to handle targe 
or small files. _ , ^,_ ^_ 

Pnce $49.95 



^.00 Postage & Handling 



Logical Software, Inc- 
P-0, Box 354 
Farmlngton, Mt 48024 
(313) 474-8774 




® Apple and Apple II are registered 
Tradefflait^a of Apple Computer Inc. 



DYNAMIC DUO 



Designed and Engineered 
Specifically for the 
SYNERTEK SYM-1 and KTPUt-2 

• VITAL COMPONENTS PROTECTED 

• ALL FASTENERS PROVIDED 

• NO ALTERATION REQUIRED 

• EASILY ASSEMBLED 



ATTRACTIVE FUNCTIONAL PACKAGING: 

• High Quality Therm of oritted Plastic' 

• Molded In Data Blue Coloi 

• Available From Stock 'RDnm&Has; kvoei im 




enclosures 
group 

786 bush street 

san franclsoo, California MIOB 



TO ORDER; 1 FiH in Ihis coupon (print or TVpe Please) 

Z Allien Cl^ech or Money Onler. 



STREET 



C1TY_ 



FOR SYM-1 : Please Ship Prepaid . 



_ZIP. 



.STATE 

_SSE 1-1|s| @ $39.50 each 



TOTAL 
ENCLOSED: S- 



FOR KTM-2: 



California Residents Please Pay $42,07 (InoluOes Sales Tax) 

Please Ship Prepaid SKB 1-3(s] @ 169,50 each 

Calilornia Residents Please Pay $74.0? (Includes Sales Tax) 



Dealer Inquirea Inviled. — No C.O-C'S Please — Allow 2,3 Weeks for Procesaing and Dollverv 



\ 
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Software Catalog 



Name: Engineering Software 

Library 

System: Appie II + , DOS 3.3 

Memory: 48K 
Language: Applesoft BASIC 
Hardware: Disk drive, printer 

optional 
Description: The Engineering Software 
Libraiy is composed of a number of pro- 
grams for the working engineer and is 
aimed at a void that exists in software 
for micros. Examples of major pro- 
grams are; Truss and Linkage Analysis; 
Beam Analysis with Diagrams; Linear 
Natural Frequencies; Torsional Natural 
Frequencies; Rubber Element Design; 
Bolted Joint Design. Each of the above 
is available separately. This is a con- 
tinually growing library developed as 
part of our consulting practice. All pro- 
grams are well prompted and written in 
easily modified BASIC. 
Price: $40.00 per program (disk 

or listing only), includes 

disk and documentation 
Author: James R. Sturges & 

Assoc. 
Available: Engineering Software 

104 E, Queenwood Rd. 

Suite 2 

Morton, IL 61550 



Name: Utilities Disk 

foi OS 6SD 

System: OSI Challenger (C2 and 

C3 series) 
Memory: 32K or 48K 
Language: BASIC under OS 65D 
Hardware: Disk drive, CRT, 

optional printer 
Description: Contains three useful pro- 
grams. 1. A re-sequencer which 
renumbers all or part of BASIC pro- 
grams, correcting all references to 
statement numbers; 2. A disassembler 
of machine code written in BASIC, 
with the ability to disassemble 
machine code linked to BASIC pro- 
grams or portions of BASIC itself; and 
3. A number converter handling 
decimal, hexadecimal, octal, binary, 
and ASCn conversions. 
Price: $30.00 for 8" disk and 

documentation, ppd. 
Author: Mike Anderson 

Available: Responsive Computer 
Technology, Inc. 

P.O. Box 719 

Silver Spring, MD 20901 



Name: Versacalc''"'* 

System: Apple II or n Plus 

Memory: 32K 
Hardware: One disk drive and 
VisicalcTM 

Description: This enhancement to 
Visicalc gives you vast expansion of 
Visicalc's capabilities by allowing sort- 
ing of Visicalc display screens. It also 
shows how to do conditional testing, to 
display an error message if a value does 
not conform to requirements, to 
automatically execute a string of up to 
255 Visicalc commands with only 4 
keystrokes, to change colurrms to rows 
and vice-versa, and to blank large areas 
of the screen to ready it for new data 
while preserving previously computed 
results. Versacalc will display a com- 
plete catalog of your data disk on the 
screen. Versacalc is especially useful 
for developing interactive commercial 
programs and training programs for 
new users, and finally 'protecting' 
those programs. 
Price: $100.00 

Available: Aurora Systems, Inc. 

2040 E. Washington Ave. 

Madison, Wisconsin 

53704 

Name: Action Sounds and 

Hi-Res Scrolling 

System; Apple 11 

Memory: 48K 

Language: Applesoft, Machine 

Language, and Textfiles 

of Assembly Language 

EXECable by LISA 
Hardware: Apple n Plus, Disk n 
Description: Contains 31 sound effects 
in both binary files and LISA assembly- 
textfiles, mostly for space or combat 
games. Gives modification instruc- 
tions. Contains 6 Hi-Res scrolling pro- 
grams, either side with/without 
wraparound, up 8 or 64 lines. Includes 
our dynamic Superfonf program with 9 
sizes and 8 styles of large typeable 
keyboard characters. Saves. Complete 
instructions to use any machine 
language sound effect in your pro- 
grams. Unique! This disk is totally full. 
Price: $15.95 includes disk 

with instructions. 
Author: Avant-Garde Creations 

Available: Avant-Garde Creations 

P.O. Box 30161 

Dept. MC 

Eugene, Oregon 97403 



Name: New General Ledger 

System: Apple I! 

Memory: 48K 

Language; Applesoft or Language 

System 
Hardware: Dual 5" drives, any 

80-column printer 
Description: Based on our standard 
G/L, this new system can be used alone 
or integrated with other accounting soft- 
ware. It features extensive error check- 
ing and data entry prompting, depart- 
mentalizing, budgeting, and thorough 
audit [rails. User has complete freedom 
in formatting reports and defining chart 
of accounts. Sensitive data is protected 
from unauthorized persormel and oper- 
ator error. Clear, concise documentation 
included. This highly recommended 
system combines flexibility, efficien- 
cy, and smooth performance. 
Author: David McFarling 

Available: Small Business 

Computer Systems 

4140 Greenwood 

Lincoln, Nebraska 68504 

(402) 467-1878 

Name: Star Warrior 

System; Atari 400 or 800 

Memory; 32K 

Language: BASIC 

Hardware: Atari 400/800, cassette 

or disk drive 
Description; The player must take on 
an entire planetary force of storm 
troopers of the Stellar Union, armed 
with nine types of military vehicles — 
alone. He can walk, jump, or even fly 
over swamps, forests and mountains. 
In addition to several suits of armor, he 
has a choice of two scenarios, 19 com- 
mand options, and five levels of skill, 
combined with six different sounds and 
a revolutionary graphics display. 
Price: $39.95 includes disk or 

cassette, rule book, 
command summary card, 
and special instructions. 
Author; Automated Simulations, 

Incorporated 
Available: Automated Simulations, 
Incorporated 
P.O. Box 4247 
Mountain View, CA 
94040 
or local computer stores 

Name: Chart-Master Business 

Graphics Software 

System; Apple II or Hi 

Memory: 48K of RAM 
Language: Applesoft BASIC 
Hardware; Hewlett-Packard 

H-P7225A/B Plotter 
Description; Chart-Master allows the 
Apple II or ni to drive a Hewlett- 
Packard plotter to produce bar, line, 
pie, and scatter charts in up to 10 
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colors. Charts are easily and quickly 
created, edited, stored, and plotted 
through this interactive, menu-driven 
progiam. Variety of options include 9 
hatching patterns, fastplot selection, 
and ability to interface with Visicalc. 
Price: $375 suggested retail 

price includes two 
diskettes and a User's 
Manual. 
Author; Sean O'Connor, fon Siegel 

Available: Decision Resources 
44 White Birch Road 
Weston, CT 06883 

Name; Ultra Hi-Res Graphics 

System: Apple II or Apple U + 

Memory: 48 K 

Hardware: Paper Tiger (IDS) 

460G/56OG or 

440G/445G prmter, 1 

drive, 3.3 
Description: A plotting program 
designed to take full advantage of the 
high-resolution capabilities of the IDS 
printers. The program first writes to 
the disk and dumps from disk to printer 
without being restricted by Apple's 280 
X 192 resolution. Results in smoother 
curves and diagonal lines plus a larger 
picture. 
Price: $49,95 includes disk and 

full documentation 
Available; Computer Station 

11610 Page Service Dr, 

St. Louis, MO 63141 

(314) 432-7019 

Name; Tabula RASA 

System: 6809 with Flex 

Memory: 56K 

Language: TSC Extended BASIC 

Hardware: 6809 

Description; Electronic spreadsheet 

system similar to desktop/plan, with 

full screen, menu-driven editing 

capabilities. 

Price: $100.00 includes all 

source on disk and 
manual 

Author: Bud Pass 

Available: Computer Systems 
Consultants 
1454 Latta Lane 
Conyers, GA 30207 
|404| 483-1717/4570 

Name; ZAPT 

System: Apple II or Apple II Plus 

Memory: 32K 
Language; Machine 
Hardware: Apple II and Disk n 
Description: ZAPT is a versatile utility 
program for displaying and altering the 
data on a disk. Data may be displayed 
or altered by specifying a track, sector, 
and offset, or by specifying a file name 
and offset. For binary files you may 
specify on offset or the actual assembled 



address. Three display modes are 
available; Hex and ASCII representa- 
tion of the data; ASCII only; or 
disassembled 6502 code. Output may 
be directed to the screen or to a printer. 
Display data a line at a time, page at a 
time, or continuously. Copy any sector 
or range of sectors to any location on 
the same or different disk. Works with 
DOS 3.2 or 3,3. A valuable aid for prob- 
lem diagnosis and resolution. 
Price; $19.95 includes disk and 

documentation 
Author; Andy Tuxen 

Available; Andy Tuxen 

4539 Andrew Street 
Oshkosh, WI 54901 

Name: Transit'''" 

System: Apple II 

Memory: 48K 
Language: Applesoft 
Hardware: One disk drive 
Description: A versatile utility program 
which will convert almost any Apple II 
data file into an Information Master 
file. It lets you use data files from other 
software packages such as Personal 
Software's VisiCalc"^ and High 
Technology's The Store Manager"'"'^ 
among many others. Once a file has 
been "TRANSITed" to Information 
Master, it can be sorted, searched, 
calculated, and printed in custom- 
designed reports. 

Price; $50-00 alone or $189,00 

packaged with 
Information Master 
Author: Steve Williams 

Available: High Technology 

Software Products, Inc. 
P.O. Box 14665 
Oklahoma City, OK 
73113 

Name; DOW2000 

System: Apple II 

Memory: 48K 
Language: Applesoft 
Hardware: Disk 3.3/3.2 with 

printer option 
Description; Stock Market Analysis 
will determine price projections based 
on a stock's BETA coefficient or 
Relative Strength number and the Dow 
Jones Average. Projections are made as 
you vary the DOW (what if,,.] on one 
stock or entire portfolio with single 
scan, quick scan, or variable scan of 
values. Included is the booklet "The 
Art of Timing Your Stock's Next 
Move." Author in market 17 years and 
former registered investment advisor 
withS,E.C, 
Price: $29-00 with booklet 

(booklet alone $6,00] 
Author: |IA] :CaIabrese 

Available: Bit'n Pieces Series 

P.O. Box 7035 

Erie, PA 16510 



Name; 


PET Arcade 


System: 


Any PET/CBM 


Memory: 


8K 


Language: 


BASIC and machine 


Hardware: 


PET/CBM 



Description; Astioidz and Munchman 
are now available for the 8K PET/CBM 
and will nm on both old and new 
ROMs. Astioidz is based on the popular 
arcade game. There are huge astroidz 
invading the galaxy and your mission is 
to destroy them before they destroy 
you. Four levels of play from novice to 
expert. Munchman is based on the 
popular arcade game Packman. You 
must work your way through the com- 
puter maze as fast as you can and try to 
avoid Zip and Zap, Bonus points, time 
bonus and different levels of play. 
Price: $9.95 each includes tape 

cassette 
Author: Cliff and Nic Dudzik 

Available: Computermat 

Box 1664 

2984 Daytona 

Lake Havasu, AZ 86403 

Name: Lower Case Character 

Generator 

System; Apple II Plus Rev 7 or 

Apple n Rev 7 
Memory; 1 6K 

Description: LCCG plugs into the 
Apple and enables the user to generate a 
full lower case character set, with two- 
dot true descenders. This EPROM is 
compatible with all word processing 
packages that need a lower case set, in- 
cluding Letter Perfect from LJK. 
Price; $34.95 includes 

installation manual 
Author: Ken Leonhardi 

Available: LJK Enterprises 

P,0. Box 10827 

St- Louis, MO 63129 

Name: Gorgon 

System; Apple II, Apple 11 Plus 

Memory: 48K 

Language: Machine 

Hardware: Disk drive, 13- or 

16-sector controller 
Description: The Earth has entered a 
time warp... and the battle has just 
begun. Strange creatures are appearing 
and some have been reported stealing 
people from the surface of the Earth. As 
a fighter pilot you must defend the 
planet by destroying these creatures 
and saving the people who are being 
carried away. Gorgon has several dif- 
ferent levels of play, incredible high- 
resolution color graphics and many 
other features. Keyboard control only. 
Price; $39.95 includes disk and 

documentation 
Author; NASIR (Presented by 

Sirius Software, Inc.| 
Available; Your local Apple dealer 

or software store 

MCftO 
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OSI COMPATIBLE PRODUCTS 

56K 2-MHz Ultra Low Power CMOS Static Memory Board — MEM-56KS850 

Partially Populated Boards (Specify address locations required) MEM-48K $750 

MEM Board uses Ihe new EK-Byle Wide Static RAM cfiips which are MEM-32K S550 
2716 EPROM compatible. Any 2K byle memory segment can be MEM-24K S450 
populated with RAM orEPROM (or lett empty lor use of AddressSpace MEM-16K S350 
by another board). Fully expandable to any memory size you will ever MEM- 8K S250 
need Nospecialaddressingrequirements.iuslsolderinextrasockets MEM- 4K $200 
and add memory. Also has space for a 1,75K Monitor ROM at $F800 (FC), 

Extra 2K RAM Memory Chip 
Optional Parallel Printer Port 
Optional Calendar/Clock [Software available in EPROM) 
Both options (Disk software mods provided for use of 6522 \JIA on 
printer). 

EXAMPLE USES: 

C4P & C8P: Expansion to 40K RAM of Basic workspace. 

Parallel Printer Port — Resen/e Serial Port for MODEM 
Space for 5.75K of Enhanced Svatem Monitor EPROMS. 
All of this on 1 Board, using only one of your preciousslotS.Soflware for Enhanced Syslem 

Monitor capabilities is continuously being developed and improved As new EPROM 

Monitors are available, you may upgrade to them for any price ditterenlial plus a nominal 

$10 exchange fee. Another possibility is to fill any portion of ttie memory with Basic 

Programs in EPROfvl for Power-on Instant Action. This custom EPROM programming 

service IS available at $25 per 2716 (includes EPfiOM). Extra copies at £15 for each 

EPROM. 

C4P-MF & C8P-DF: Memory expansion to 48K. 

Add 4KMemory at SEOOO for special software requirements. 

Parallel Printer Interface and/or Displaying Calendar/Clock. 

Add 1.75K Enhanced System Monitor ROM. 

C3: Uplo56Kof Memory Expansion — can be addressed for Muttiusar, 

(Optionally, each user can have his own Dedicated Printer Port). 
Add Enhanced Monitor ROM with Calendar/Clock software, warm 
start and Hard Disk Boot, 
1EEE-4S8 INTERFACES AND SOFTWARE: 

The General Purpose Instrumentation Bus (GPIB) Controller interface is 
available tor all OSI Computers- Machine code GPIB Drivers are linked to Basic 
to provide easy control of IEEE-488instruments v/hich is equal to the best of 
Hewlett-Packard Controllers and far superior to most others, Basic Commands 
for Serial Poll, Parallel Poll, IPC Clear full Local/Remote Control, Respond to 
SRQ Interrupts, Send Trigger, do Formatted Input/Output, Direct fvlemory 
Input/Output and MORE, Interface includes IEEE-488 Ribbon Cable/Con- 
nector, 

GPIB Controller Interface for C2. C3, C4 and C8 Systems GPIB 4-488 $395 

GPIB Software for OS-65D (Add -8 for 8'' or -5 for 5") GPIB 488-0 S 70 

GPIB Software for 0S-6SU GPIB 488-U StOO 

GPIB Software on two 271 6 EPROMS for ROM based systems GPIB 4e8-R SI 00 

Add Optional Parallel Printer Interface to GPIB 4-488 -P SI 20 

Add Optional Calendar/Clock to GPIB 4-488 -T S 25 

Add2KRAHtoGPIB4-48B(Specifylocalion,S4000-$BFFFS$DOOC-$EFFFavailable)-MS 25 

SoHware lor EPROM Programming, Reading, Verifying, and Erased Check; fully 
integrated with Assembler. Editor and Extended Monitor, Can be used with many types 
of EPROM up loBK. Requires Optimal Technology Model Ep-2A-79 EPROM Programmer 

and the GPtB 4-486 Board, Specify 8" or 5" Disk EPROM MI-EPS180 

GPIB Controller for C1 P, Includes Software, Clock 8 space for 6K EPROM 

G PI B 6-488R S395 

Add Optional Parallel Printer Interface to GPIB 6-488R -P$120 

EPROMS-. (Check with your Dealer for newest EPROM Products). 

C1P ROM with 48 Col Display, Smart Terminal, Edit & More tor Series II 

ROM-TERM II $59.95 

CIP ROM with 24 Col Display. Other ROM-TERM II Features S Disk Boot 

ROM-TERM $59.95 

Justflip switch forSerialorVideo System withCorrected Keyboard SYNKEYS39.95 

ENHANCED MONITOR ROMS FOR USE ON GPIB 4-488 & MEM BOARDS: 
Expanded Support tor C4P S C8P Featuring Calendar/Clock, Line Edit Smart Terminal, 

Memory Files, Parallel Printer Control & More MI46P1 $59.95 

DlskSuppoitwithCalendar/Clock.WarmStartandCorrected Keyboard ..,,MI48D1 S59,9S 
Expanded C3 Monitor with Calendar/Clock Software, Hard Disk Boot, Line Edit and Warm 

Start M1C3-1 $59.95 

C1-PSeriesllComputerwi1h ROM-TERM II Smart Terminal Monitor(OrderDirect).,. $549.00 

Check with your local Dealer or Order Direct Phone orders accepted 

TERMS Check/Money Order/Master ChargeA'ISA Sent POSTPAID ON PREPAID ORDERS 

Foreign Orders: Prepaid only. Add 5% tor tiandling/shipping. 

MICRO-INTERFACE 

31 1 1 SO. VALLEY VIEW BLVD., SUITE 1-1 01 

LAS VEGAS, NEVADA 89102 

Telephone: (702} 871-3263 



.li. 




MORE 



POAA/ER 

FOR YOUR APPLE 

J LANGUAGE SYSTEMS 




APPLESOFT: 30-3 MIN. 

MiCROSPEED IL 3.9 MIN, 

MICROSPEED K+: 2,4 MIN. 




FASTEST: 

MOST POWERFUL: 

EXPANDABLE: 

CREATIVE: 

USER-FRIENDLY: 



UP TO 100 
TIMES FASTER 
TKAM aPPI 1E$OFT 

. MORE POWER 
' THAN BASIC 
PASCAL OR FORTRAN 

. LANGUAGE BASED 
- ON FORTH 

. GROW roup OWN 

■ LANGUAGE 

EASIEST FOR 
YOU TO LEARN 




REQUIRES APPLE , SINGLE DISK 
U SPEED ][ USES 2mHz PROCESSOR 
U SPEED ][+ USES 4mH? PROCESSOR 

SEE YOUR DEALER OR CONTACT 



r' 



applied , 



aas 



difttfis i^ahor.bora^ed : 



icor.L 



~\ 



D Pelailed Informalion 



8910 Brookndga Dl.,Suile B04, Upper Marlboro, Md 2OB70 
(301) 627-6660 
I'm Interested. Please Send 
D U SPEED 1[ M95 n 160 page Manual «35, 

□ (JSPEEDJI- •64S 

Name 

Address 

City 

Slate 



_ Zip- 
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A BRIGHT NEW STAR FROM 



p 



ANDROMEDA! 



• 




NEW ROM BOARD FOR THE APPLE II* 
$125.00 WITH UTILITY ROM. 



With Andromeda 's new ROM Board, you can plug many 
useful utility programs into your Apple I). Because ROM 
memory never forgets, you can access rhese utilities 
instantly without having to load them from disk. 

The ROM Board comes with the utility ROM, vi/hich 
gives you Five powerful options to apply to your 
Applesoft* programs With the Utility ROM, you can do 
automatic line numpenng, control a program list with a 
page mode, restore a crashed Applesoft* program in 
memory, alphabetize a disk catalogue and create a disk 
without DOS. giving you an extra 8K on your disk. Any of 
Soft Control Systems' other ROMS can be used such as 
the Dual DOS in ROM, and'Your'ple ROM. 

You can install 2K PROMS, 4K PROMS, or even ZK 
RAM chips in each of the two memory sockets. So you 
can even have the Read - Write capability of RAM to 
develop PROM Programs yourself, or just have an extra 
2K RAM for your machine - Language programs. Two 
2 732 PROMS allow a total of 8K of memory on the Board. 



Now with One Year Warranty. 

Don't forget the Andromeda 16K RAM 
Expansion Board S195.00 

ATOnOMEDA 



n 



Di^jrjDuled By 



m 



COMPUTED 

□ATA 

SERVICES 



INCORPORATED 

P.O. Box 19144 
Greensboro, NC. 27410 
919 852-1482 

P.O. Box 696 
Amherst. NH, 03031 
603 673-7375 



"Apple II And AppieyDtr ^re tradem^fits 



never go back to BASIC! 



Z-FORTH IN ROM by Tom Zjmmer 

5 1o 10 limes taster than Basic. Once you use it. you I 

source listing add 

OS) F1I3FORTH True tig FORTH model tor 0S65D witfi fig editor named files, string 

package & mucfi more 

TINY PASCAL OperatBs in fig-FORTH, an exceptional value wtien purcfiased witfi fortH, 

TINY PASCAL 8 documentation 

FORTH S TINY PASCAL 

SPACE INVADERS 100% macfiine code for all systems with sa ctir. video. Full color & sound 
on 02, 4P & 8P systems, Ttie fastest arcade program available. 

PROGRAMMABLE CHARACTER GENERATOR „,,,,, „,„^ 

Use OSI's graphics or make a complete set of your own! Easy to use, comes assembleQ 5 tested. 
2 Ii4hz, boards 

PROGRAMMABLESOUNDBOARD ^ , ^, 

Complete sound system featuring the AY -3-8910 sound chip. Bare boards available. 

32/64 CHARACTER VIDEO MODIFICATION , ^ ^.^ -^ ,., , 

Oldest and most popular video mod. True 32 chr. C1P, or 32l6t chr. C4P video display. 
Also adds many other options. 

^°gmll\ Video Mod with our Roms. Full screen editirxg, print at selectable scroll, disk support and >" any more 
features. Basic 4 8. Monilor j ,gg5 

Basic_3^ S e5:00 



$ 75,00 
$ 20.00 

S 45.00 



S 45.00 
S 65.00 

$ 14.95 
S 99,95 

$109.95 

I 74.95 
$29.95 

S 39.95 



65D DISASSEMBLY MANUAL, by Software Consultants. First Class throughout. 
A must for any 65D user. 



S 2A.9b 



NUMEROUS BASIC PROGRAMS, UTILITY PROGRAMS AND GAMES ALONG WITH HARDWARE PROJECTS ALL 
PRICES ARE US FUNDS. Send lor our $1.50 catalogue v/ilh tree program {harOcopy) Memory Map and Aulo Loaa 
Routine. 



•HAHGEJt 




VISA 




OSI Software & Hardware 

3336 AvnnflalB Court 

Windsor, Onlario, Canada N9E 1X6 

(519) 969-2500 

3231 Countryside Circle 

Ponliac Tov*nsliip, MIoliigan ^8067 

(3131 373-0468 






AIM-65/SYM-PET-KIM-6800 

Universal Interface Board Converts AIM-65/SYM 
Into Professional Data Logger 




\ COLUMBUS INSTRUMENTS INTERNATIONAL CORPORATION 

^pp<l>r d1 li\a mdiJ*l UiilrurT><flll inO loUl ■hMMtHHB ■T>fim i 

950N. HAGUE AVE., COLUMBUS. OHIO43304U.S.A. 
PHONE: (614) 4BB-617S TELEX; 246514 



(Also connects to PET or KIM with adapter cable. 
Adaptable to of/ier 6502 and 6800 systems) 

CONTAINS: 

* 12 bits. 16 channels, fast A/D converter 

* space for additional 16K RAM memory or 32K 
EPHOM (or combination) 

* real time clock/calendar with real titne interrupt 
capability and lO-year lithium battery backup 

* plugs directly into AIM-65 expansion connector 
with the help of a mini-mother board which 
supports up to three interface boards 

* supplied with supportive demonstration and 
control programs 

AVAILABLE MODELS: 

* IB-902 Additional Memory 

Space (only) $ 390.00 

* IB-902-A Calendar/Clock plus 

memory space $ 690.00 

* IB-902-B A/D (12 bits. 16 channels 

plus memory space) $ 960.00 

* IB-902-AB A/D, plus memory space 

and calendar/clock $1 ,270.00 

Mini mother board to support up to three (3) 

interface boards $65.00 

Quantity Discounts Available 
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SOFTWAZtE AUTHORS! 

for Apple, Atari, TRS-80, NEC, Hitachi. . . . 

Bitfderbund Software is looking for new authors to join Us 
international team of programmers. If you have a product for 
the micro market, let us show you the advantages of uorking 
'With OUT team of design, production and distribution 
specialists. "':-'.yti~i--< 

Call or write for our free Authors Kit today or send us a 
machine readable copy of your work for prompt review under 
strictest confidence. "iiW W=(l' 



-' --. ^i^W 



derbuncl SoFtiuQr 




(415)456-6424 --... 

""'WViiiWi'fii^MiiWi^"""""" '" 




LISP 



for the Apple I 



Pegasys Systems' new P-LISP interpreter is a full implementation of the 
weii-known Artificial Intelligence language. Written in machine code, 
this powerful interpreter includes the following features; 



Over SS ljr:ttions implemented 
Extensive 45-page User Manual 
Full function trace 
Function editor and pretty-printer 
Floating point malh 



• Break mode for function debugging 

• Detailed error messages 

• Lores and Hires graphics 

■ PROG construct, EXPRs, and FEXPRs 
■ Atom property lists 



• ELIZA, TOWERS OF HANOI, and other sample programs included 

Also available: The P-LISP Tutorial, an introductory text designed to 
give the reader a complete understanding of the LISP language. 

P-LISP is supplied on disk with User Manual for $99.95 (specify DOS ver- 
sion). The manual is available separately for $10.00. The P-LlSP Tutorial 
is available for $1 5.00. Requires a 48K Apple 11 or \\+ with disk. Floating 
point math and Hires graphics require Applesoft in ROM. 



<P 



eGASy, 



PEGASYS SYSTEMS, tNC. 

4005 Chestnut Street 
Philadelphia, PA 19104 
Orders only; 800-523-0725 

PA residents and inquiries: (215) 387-1500 

Pennsylvjnij icsidcnis add (>% ihiJc^ \3k 
Apftli' 1^ .1 nddenurk ui Ajipit' Comiiuitr. Inc. 



Good software is no longer a myth. 




•^ 




DRAGON 
BYTE 



SOFTWARE 

PRtSENTS 

UNIQUE PROGBArvlS 
FOR OHIO SCIENTIFIC 
■ POLLED KEYBOARDS ' 
2D01 2002PC — States S CaRiWls 

Capitals S Scatea One Cassette 
2003PC — Capitols of ttis World 
a304PC — ProtGCtarate Capitals 
SaOSPC— PresiiJuncial Campaigns. 

1738 toiaaa 

All progr-ams exc^ept Presidential 
Campaigns available for serial terminal 
Specify numbei' wittiout PC suffix 
CASSETTE $9 95 Diskette S12 95 
All five on una disk . . S29 95 
C-ID Blank Cassettes 10iS4.99 

SPECIALi OSI Disk Expansion 

Manual $14 95 

OSI Expansions, conversions, and 
Floppy Disk Dr'ive Maintenance 
£35 OO'hour — S35.00 minimum 

COMPLETE SELECTION 
OF ELCOMP BOOKS 
SounOustrial Electronics, Inc. 
40Gfi Polaris Auenue. 
Joshua Tree, CA 92252 



li 



Get more from your 
microcomputer. 

Stale- of-the-art hardware and 
software articles in MICRO help you 

• Understand your compuler's 
inner workings 

• Keep up with higli-level 
language developments 

• Exploit the full capabilities 
of your microcomputer 

Read the nionlhly that thousands of profes- 
sionals use It) jjel the most out of their 
Apple, Atari, AIM, PET OSI, or other 
6S02-or 6809-based system. 118 in U.S. 
(S21 elsewhere], 

CALL TOLL-FREE ^^ ^Q^ 
800-227-1617, ext. 564 



(in Calif: 800-772-3545, exl. 564| 



34 Chelmsford St. 
P.O. Bns 6502 
Chelmsford. 
MA 0iS24 
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AP103 



AP101 Apple II with Single Disk Drive S109 

AP102 Apple II with Double Disk Drives 119 

AP103 Apple II, S Inch Monitor & Double Drives ... 129 

AP104 Apple M, two additional Drives & Siientype 139 

AP105 12 inch monitor plus accessories 99 

RS201 TRS-aO Model I, Expansion Unit & Drives.... 109 

RSZ02 TRS-80 Monitor or TV set 84 

RSa04 TRS-80 Model III 129 

RS205 Radio Shack Color Computer 89 

P401 Paper Tiger 440/445/460 99 

P402 Centronics 730/737 - Line Printer ll/IV 89 

P403 Epson MX70 or MX80 89 

CC90 Matching Attach^ Case 75 



compuTQT cdse company 

5650 INDIAN MOUND CT COLUMBUS, OHfO a3213 (S14) B6S-M64 



OSI COMPATIBLE HARDWARE 

lO-CAIOXSERIALFORT *12S 

ACIA based RS-232 serial punter porl. DIP SWITCH selectable baufl rales of 300-9600. 
Ha nd5haKlng{CTS)jnpuT liners provided [□ signal me computer when Tnepnnleibuller 
IstuN ComDallble wHfiOS*SUV1.2 and 08.650. 

I0-CA9 PARALLEL PORT t1 75 

Centronics Slandard Parallel prinlei Interlace for OSI computers. The card comes conv 
plelB with 10 (1. o( (la( nObon cat)le. CompaliQle with OS-65D and OS«6U soflwaie. 
IO.CAeD DIABLO PAR ALL EL PORT t1T5 

DIABL0 12 BIT WORD PaiaJlel port lor use wrtfi woifl processor type primers. Complete 
witn 10 fl. cable, Comoatible with OS-esU sottware, 

lO-LEVEL 3 MULTI-USEn EXPANSION MSO 

Provides 3 prinler mlerraces cuirenlly suppofled by OSI-Serlal. Cenlionios Parallel, 
Diablo ParalleL 4K ol memory at DOOO tot Mu II l-usef executive 4 Pon serial cluster The 
LEVEL 3 card allows expansion ol an CSI C3 machine jp 104 users wrtli appropriate ad. 
drtional memory riartitions. 

lMIEM-CIM.-.t3«a iaMEM.CM»...I3aO aMEM.CMS...UIO 

24K memory cardrsavailableal 3 drllerenl pop ul at ed levels. All cards are fully sockalatf 
for 24Kol memory. The card uses 21 IJ-SOOns chips, DIP SWITCH address infl IS provided 
in the lormol one 16K block and one 6Kblocl\ Aiso supports DIP SWITCH memory pan|. 
tlon addressing for uee In mu In- user syslems. 

FL4T0 FLOPPY DISK CONTDOLLER $180 

OSI Type (loppy disk controller and real lime clock. Will Support 5'/«" orO", Single or 
double sided drives. Reguires drives with separated dala and clock outputs, 
BIO-ieOOBAREtOCARO (50 

Super iyOCard,SupBonseKo( 21 J4 memory in IwoDIPSWlTCHaddressaWSJK blocks, 
2 16 Bit Parallel Pols may be used as printer inlerfaces, 5 R&232 Serial Potts withers S 
HTS handshaking. With manual and MoIeK connectors, 

BMEMCMOBARE MEMORY CARD ISO 

Bare 24K memory card, also supportsOSI-type real tlrne clock and f loppy illsk controller. 
With manual and Mole* connectors 

DM PROTOTYPE CARD US 

Prototype board holds 96 14 or 16 pm IC's. Will also accommodate 18.24, or 40 pin ICs, 
Row and column zone markings, easy layout. l^,"epoxy glass P,C. troard. 
CIP-EXPEXPANSIOK INTERFACE MS 

Expansion lor CI P6C0 or 610 boards lo the OSI 4S Pin Buss. Uses expansion socket and 
interlace circuitry to expand ■□ 43 Pin Backplane Requires one slot in backplane, 
BP.5«0 BACKPLANE (47 

Assembled fl-siol backplane wilh male Molex connectors and termlnalion resistors, 
DSKSW DISK SWITCH »» 

A circuit when added to OSI Minilloppy syslems extends the life of drives and media, Ac. 
complish Ihis by shutting oft minifloppy Spindle motor when system is not accessing 
the drive. Complete KIT and manual, 

PW>S4 POWER SUPPLY f2S 

Power One brand supply 5V - 6 amps with overvohage protection, Reg, S^.S5, 



DAN MICRO 

INC. 

3684 N. Wells Street Ft. Wayne, Indiana 46808 
219/485-6414 

TERMSiCdeckof money ofdet Add $2 Shipping^ Oulslde U.S. add 10%. 



A couple of one liners; a graphics program and a 
routine to alter the cursor of the Apple. 
Smith, Eric, "FORTH Comer," pg. 6-7. 

Benchmark Tests comparing FORTH, BASIC and 

Pascal. 
Greenfield, Dave and Stein, Dick, "Unit PEEKPOKE," 
pg. 8-9. 

A routine for the Apple/Pascal system and a test 

program, 
fochumson, Christopher, "Apple's Input and Output 
Registers, "pg. 10-13. 

How the input and output registers are used in the 

Apple. 
Jochumson, Christopher, "MX-80 Printer Utility." 

A utility for the Apple/Epson MX-80 combination to 

provide a form feed at the bottom of a program listing 

to effectively skip over the perforation in folded 

paper. 

1105. MICRO No. 34 (March, 1981) 

Carlson, Edward H., "A 6502 Assembler in BASIC," 
pg. 7-9- 

A 6502 assembler written in BASIC and tuned up for an 

OSI C2-4P computer. 
Green, Len, "SYM-ple Sym-on," pg. 15-16. 

A game for the SYM. 

Reich, L.S., "Rapid Bubble Sort of Numerical Elements 

Using BASIC/ASL," pg. 21-22. 
A BASIC sort program using a machine language 
subroutine for comparisons and swapping during sort- 
ing on the Apple. 

Evans, Mel, "A Relocating Loader for AIM Tape," 

pg- 25-27. 

With this routine you can assemble a program at one 
location and load it at another. 

Strasma, James, "Unassemble! for PET," pg- 29-32. 
Here's a way to convert your machine- language pro- 
grams into a form your assembler understands. 

Hoyt, Sherwood, "Encryption with RND and USR," 

pg. 35-37. 

A simple text-encoding scheme using Microsoft BASIC 
for 6502 micros, 

Hyde, Randy, "The 6502 Dream Machine," pg- 67-74. 

A proposal for a super 6502 as imagined by an expert. 
Froelich, Jerry W,, "A Second Cassette for PET," 
pg. 81-82. 

A "how-to" article to modify a standard cassette 

recorder to function as a second cassette for the PET. 
Brady, Joe, "Reset Protection for the Apple D/' pg. 89-90. 

A hardware modification for the Apple Reset. 

1106. AppleGram 3, No, 2 {February, 1981) 

Sander-Cederlof, Bob, "Hex/Dec Calculator," pg- 5. 
A program for the Apple which simulates the Ti Pro- 
grammer calculator, operating in Reverse Polish like 
H-P units, 

Sander-Cederlof, Bob, "Re-READing DATA Statements," 

pg. 8. 

How to re-read data statements on the Apple without 
using the Restore statement. 

1107. Rubber Apple Users Group Newsletter 4, No. 1 
( January /February, 1981) 

Park, John and Park, Lloyd, "Machine Language Routine 
Link to Applesoft Programs," pg. 5. 

An Apple program to imbed a machine language routine 

into an Applesoft program. 
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1108. Apple-Dayton 2, No. 2 (Match, 19SI) 

Anon., "Pascal I/O Error Reporting," pg, 4. 
A procedure which can be used as an include file under 
the Apple/Pascal UCSD operating system. 

1109. Atari Computer Enthusiasts 2, Issue 3 (March, 1981) 

Bannister, Ray, "Memory Dump," pg. 5. 

A program for the Atari which dumps the memory, using 

the special graphics characters as ASC hex equivalents. 
Ness, Ron, "Music Without the Composer Cartridge," 
pg, 6-7, 

An Atari music program and song table for Starwais. 
Goff, Stacy, "Fileindx — Miracle Cure for All Problems," 
pg. 8-9. 

An index to disk files with options to sort, save to disk, 

load back, display or print. 
Hitz, Larry, "Modem to Disk," pg. 11. 

An Atari program to download from Micronet, etc. to 

your disk. 

1110. Apple Assembly Line 1, Issue 6 (March, 1981] 

Bernard, Robert H., "A Beautiful Dump," pg, 2-5. 

An Apple n relocatable memory dimip program in 

assembly language. 
Wellman, Chuck, "EDITASM & COPY on the Language 
Card," pg. 12-14. 

A utility for the Apple 11. 

1111. Mini'App'Us 4, No. 3 (March, 1981) 

Allen, Earl, "Applesoft Fast File Accessing," 
pg- 3-5. 

A faster alternative for handling massive amounts of 

data on the Apple. 
Hammond, Daryl, "Pondering Pascal: Zapping the 
BIOS," pg, 6-7. 

This program modifies the Apple/Pascal BIOS file 

SYSTEM, APPLE so that lower case characters are 

displayed as true lower case, 

1112. Softalk 1, No. 7 (March, 1981J 

Wagner, Roger, "Assembly Lines," pg, 20-23. 

Part 6 in this guide to assembly language covers the 

Zero and Carry fiags of the status register of the 6502, 
Mazur, Jeffrey, "The Look with Character: 80-Column 
Boards for the Apple," pg, 26-31. 

A review and evaluation of 80-column boards for the 

Apple, 

1113. Poke— Apple 3, No. 2 (March, 1981) 

Watson, Dale, "Expanding Applesoft Programs," 
pg, 5-9, 

How to add lines of code to a program while running, 
Averill, Bonnie Kaufman, "Elementary Programming: A 
Basic Budget," pg. 10-11, 

The second in a series of articles on developing a budget 

program. 
McKee, Dan, "Pascal by Trial and Error," pg, 13, 

A brief tutorial on elementary Pascal, 
Neff, Thomas M., "Apple Notes," pg, 14-15. 

How to add a binary subroutine to an Applesoft program. 
Hill, Alan C, "Filename Track/Sector Lister," pg, 15-18, 

This Apple program will print the Track/Sector list for 

each filename in the catalog. 
AICAO 



OSI Disk Users 

Double your disk storage capacity 
Without adding disk drives 

Now you can more than double your uaable floppy 
disk storage capacity — for a fraction of the cost 
of additional disk drives. Modular Systems" 
DiskDoubler'" is a double -density adapter that 
doubles the storage capacity of each disk track. 
The DiskDoubler plugs directly into an OSI disk 
interfaceboard. No changes to hardware or 
software are required. 

The DiskDoubler increases free user disk space 
from 50K to 120K for mini- floppies, from 201K to 
420K for 8-inch floppies. With the DiskDoubler, 
each drive does the work of two. You can have 
more and larger programs, related files, and disk 
utilities on the same disk — for easier operation 
without constant disk changes. 

Your OSI system is an investment in computing 
power. Gel the full value from the disk hardware 
andsoftware that you already own. Just write to 
us, and we'll send you the full etory on the 
DiskDoubler. along with the rest of our growing 
fam.ily of OSI-compatible products, 

'" DiskDoubler It a tnidoiiiMli of ModulM SystomB 

Modular Systems 

P,0, BoxIGA Oradell, NJ 07643 
S01-2B2-0033 



POWER TO YOUR AIM 

Traat your AIM to a quality powar supply: 

1. Designed to Rockwell's specifications fortlie 
AIM-65 (5 volts at 2 amps, regulated; 24 volts, .5 
amps avg., 2.5 amps peak, unregulated). 

2. Overvoltage protection to protect the expen- 
sive circuits in your AIM (5 volt output). 

3. Handsome all metal case (two tone blue). 

4. Fuse (externally accessible), switch, pilot 
light, line cord, cable from power supply to AIM — 
ail included, 

5. Conservative thermal design for long lite. 

$64.95 plus shipping (5 lbs.) 

CA residents add 6 % sales tax. 
VISA/MC, cashier's or registered check. 
Personal check (allow 2 weeks to clear). 

CompuTech 

Box 20054 
Riverside, CA 92516 
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GALAXIAN - 4K - One of the fastest and fineBt 
arcade garner ever vurilter for the OSI, this one 
features rows of hard-hitting evasive dogtighting 
eiiens ihirsiy for your blood. For those who 
loved (and tired of) Allen Invaders. Specify 
system— A bargain al $995 OSI 



LABYRINTH - 8K - This has a display back- 
ground similar to MI^OS as the action lakes 
pjace in a realistic maze seen from ground level. 
This is, however, a real time monster hunt as you 
track down and shoot mobile monsters on fool. 
Checking out and testing this one was the most 
fun I've had fn years! -$13.95, OSI 



THE AARDVARK JOURNAL 
FOR OSI USERS - Thp^ is a bi-monthly 
tutorial jourrial running only articles about OSI 
systems. Every issue conlains programs custom- 
ized for OSI, tutorials on how to use and modify 
Ihe system, and reviews of OSI related products. 
In the last Tiivo years Are have run articles like 
these! 

1> A tutorial on Machine Code for BASIC 
programmers. 

2) Complete listings of two word processors 
for BASIC IN ROM machines. 

31 Moving the Directory off track 12. 
4J Listings for 30 game programs for the OSI , 
5) How to write high speed BASIC - and 
lots m ore — 

VoJ. 1 09801 6 back issues - S9.00 
Vol. 2 {1981J 4 back issues and subscription for 
2 additional issues - $9,00, 

ADVENTURESIIT 

For OSr, TRS-SO, and COLOR-80. These 
Adventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures that 
take 30-50 hours to play, (Adventures are inter- 
active fantasies. It's like reading a book except 
that you are the main character as you give the 
computer commands like "Look in ihe Coffin" 
and "Lfghl the Torch"J 

Adventures require 8K on an OSI and 16K on 
COLOR-aO and TRS-SO. They sell for $14.95 
each. 

ESCAPE FROM MARS Iby Rodger Olsen) 
This ADVENTURE takes place on the RED 
PLANT, You'll have to explore a Martian ciiy 
and deal with possibly hostile aliens to survive 
this one. A good first adventure. 

PYRAMID Iby Rodger Olsen) 
This is our most challenging ADVENTURE. Ii 
is a treasure hunt in a pyramid full of problems. 
Exciting and tough f 

TREK ADVENTURE {by Bob Retella) 
This one lakes place aboard a farniliar warship. 
The crew has left for good reason? - but they for- 
got to take you, and now you are in deep trouble , 

DEATH SHIP {by Rodger Olsen) 
Our first and original ADVENTURE, this one 
takes place aboard a cruise ship - but it ain't the 
Love Qoal- 

VAMPIRE CASTLE (by Mike SassmanI 
This is a contest between you and old Drac - 
and it's getting a Jittle dark outside, $14.95 each. 



OSI 



OSI 



NEW-NEVU-NEW 
TINYCOMPILEH 

The easy way to speed in your programs. The 
tiny compiler lets you write and debug your pro- 
gram in Baste and then automatically compiles a 
Machine Code version that runs from 50-150 
times faster. The tiny compiler generates relocat- 
able, natfve, transportable machine code that can 
be run on any 6502 sysiem, 

ft does have some limitations. It is memory 
hungry — SK is the minimum sized system that 
can run the Compiler, It also handles only a 
limited subset of Basic — about 20 keywords in- 
cluding FOR, NEXT, IF THEN, GOSUB, GOTO, 
RETURN, END, STOP, USR{X}, PEEK, POKE, 
-.-.'.!. ' <'. > - Variable names A-Z, and Integer 
Numbers from 0-64K. 

TINY COMPILER is written in Basic. It can 
be modified and augmented by the user. It comes 
with a 20 page manual. 
TINY COMPILER - $19,9& on tape or disk OSI 

SUPERDISK II 

This disk contains a new BEX EC that boots 
up with a numbered directory and which allows 
creation, deletion and renaming of files wiihoui 
calling other programs. It also contains a slight 
modification to BASIC to allow 14 character 
file names. 

The disk contains a disk manager that con- 
tains a disk packer, a hex/dec calculator and 
several other utilities. 

It also has a full screen editor (in machine 
code on C2P/C4!) that makes corrections a snap. 
We'll also toss in renumbering arxd program 
search programs — and sell the whole thing for — 
SUPERDISK II $29.95 IBV*") OSI 

BARE BOARDS FOR OSI C1P 
MEMORY BOARDSMf -for iheCTP -and they 
contain parallel ports! 

Aardvarks new memory board supports 8K 
of 21 14's and has provision for a PIA to give a 
parallel ports! It sells as a bare board for S29.95, 
When assembled, the board plugs into the expan- 
sion connector on the 600 board. Available now! 

PROM BURNER FOR THE CIP - Bums single 
supply 27l6's. Bare board - $24,95. 

MOTHER BOARD - Expand your expansion 
connector from one to five connectors or use it 
to adapt our ClP boards to your C4/SP, - 514.95. 

16K RAM BOARD FOR CIP - This one does 
not have a parallel port, but it does support 16K 
of 21 T4's, Bare Board $39,95, 




WORD PROCESSfNG THE EASY WAY- 
WITHMAXI-PR05 

This IS a Jine-orlented word processor da- 
signed for the office that doesn't want to send 
every new girl out for training in how to type a 
ieller, 

H has automatic right and left margin josti- 
fication and lets you vary \ht width and margins 
during printing, fi has automatic pagination and 
automatic page numbering. It will print any text 
single, doubJe or triple spaced and has text cen^ 
tering commands. It uwill make any number of 
multiple copies or chain files together to print an 
entire disk of data at one time, 

MAXI-PROS has both globaf and Jtne edit 
capability and the polled keyboard versions 
contain a corrected keyboard routine that make 
the OSI keyboard decode as a standard type- 
writer keyboard, 

MAXI-PROS afso has sophisticated fils 
capabibililies. It can access a file for names and 
addresses, stop for inputs, and print form letters. 
It has file merging capabilities so that it can store 
and combine paragraphs and pages in any order. 

Best of all, it is in BASIC (0S65D 5W4" or 
8" disk) so that it can be easily adapted lo any 
printer or printing job and so that ii can be sold 
for a measly price. 
MAXI PROS - $39.95, Specify 5'/- or 8" disk. 

SUPPORT ROMS FOR BASIC IN ROM MA- 
CHINES - C1S/C2S. This ROM adds line edit 
functionSn software seTectable scroll windows, 
ben support, choice of OSJ or standard keyboard 
routines, two callable screen clears, and software 
support for 32-64 characters per line video. 
Has one character command to switch modeJ 
2 CIP from 24 to 48 character fine. When in- 
stalled in C2 or C4 (C2S} requires Installation 
of additional chip. CIP requires only a jumpeT 
change. - $39.95 

C1E/C2E similar to above but with extended 
machine code monitor. - $59.95 OSI 



ARCADE GAMES FOR OSI. COLOR-80 AND 
TRS-SO iSK OSt, IBK TRS-SO AND COLOR-80) 

TIMETREK - A REAL TIME, REAL GRAPHICS 
STARTRECK, See your torpedoes hit and watch 
your instruments work in real time. No more un- 
realistic scrolling displays? £14.95. 

STARFIGHTER - This one man space war game 
pits you against spacecruisers, battJewagons, and 
one man fighters, you have the vfew from your 
cockpit window, a real time working instrument 
panel, and your wits. Another real time goody^ 
$9,95 

BATTLEFLEET - This grown up version of Bat- 
tleship is the toughpst thinking game available on 
OSI or aO computers. There is no luck involved 
as you seek out the computers hidden fleet, A 
topographical toughie. $9,95 

QUEST - A NEW IDEA IN ADVENTURE 
GAMESf Different from all the others. Quest is 
played on a computer generated maps of Alesia. 
Your job is to gather men and supplies by comb- 
bat, bargaining, exploration of ruins and temples 
and outright banditry. When your force is strong 
enough, you attack the Citadel of Moorlock in a 
life or death battle to the linish. Playable in 2 to 
5 hours, this one is different every time. 
16K COLOR-aOOR TRS-eO ONLY. $14.95 




OSI 



Please specify system on all orders 

This is only a partial listing of what we have to offer. We offer over 120 games, FlOMS, and data sheets for OSI systems 
and many games and utilities forCOLOR-SOand TRS-80. Sand $1.00 for our catalog. 

AARDVARK TECHNICAL SERVICES, LTD. 

2352 S. Commerce, Walfed Lake, Ml 48088 

(313)669-3110 
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HUMAIUQID 

DEFENDER 

flS DEFSUDKH OF TEIE HUHANOIU i;OI.0HIE3. 
YOU'VE ^OT TO STOP THE ALii^V 
tANDEHS THAT WIE TnilHS TO 
PICK UP Aj'JU MUTATE THE 
HlfflBNOlDS. if A LANDER 
PICKS UP A HUHANOID, iOU 
HAVE TO BLAST THE LANDEH, 
THEN CATCH THE HUKAHOID IN 
niD-AIH AND LOWER IT SAFELY TO 
THE GROUND FOR A BONUS E EVERY NOH 
AMD THtN, A BAITER SHIP APPEAHS OUT 
OF HYPEHSPACE TO ll£EP THINGS 
JNTEHE3TIN0I UITH COLOR AHD LOTS OF 

30UND1 SK CASSETTE 19.95 

■SPECIFY lOUH SYSTEM!" 





OUR MOOSBASE IE BKINC ATTACKED BY 
ALIENS? IN BfiSPONSE TO THEIR CAL,L 
H-OH HELP. JOUH M0THER3HIP HAS 
GONE IHTO LUMAB ORBIT OVERHEAD. 
NOU rou'UE GOT TO LftNO AND HE3CUS 
THK N00NBA3E CREU. lOUH TWO MAK 
RESCUE CRAFT UTLt, HAUE TO MAJIt SEVERAL TRIPS TO GET THEM ALL 
OUT ONCE YOU'VE. HANEUVKBtL THROUGH THE ASTEROID BELT, AVOIDED 
THS MOUNTAIN PEAKS AND LANDED SAFELY, THE REAL TROUBLE STARTS! 
THE ALIQiS REVEAL THEHSE1,VE3 AND YOU'VE GOT TO BI.BST YOUR Vkt 
BACK TO THE MOTHERSHIFt A LOT OF ACTIor! , JITH COLOR AND SOUND, 
by JOfm WILSON BK CASSETTE tS.95 

BUY BOTH NEW SOFT FHEtZELS ABOVE KDH 
THE SPECIAL PRICE Ol' ONLY S17.S5 

OR SEKO (1.00 FOR ILLUSTRATED CATAIOO 
flSD GET A »1.50 CREDIT GOOn ON YOUR 
FIRST ORDER! 

ALL CAMES SUPPORT SOUND ON GIP' 

ALL PRCGHAHS AVAILABLE OS CASSFTTE ONLY 

Pretzelland Soitwaro 

2005 D WHITTAKERnO. 
VPSILANTI, Ml. 48197 



RE5CUER 



Introductory 
Otiei : aiFi«" 




FORTH 



• adheres to the FORTH-79 STANDARD 
. performs FLOATING POINT MATH 

• contains a 6502 MACRO ASSEMBLER 

• handles STRINGS mucti like BASIC 

. includes VIRTUAL MEMORY MANAGER 

• Is ROMABLE 

• costs under SlOO 

• is available for KIM-1, AIM 65 and SYM-1 

• comes with complete SOURCE LISTING 

• monuQl has extensive FORTH TUTORIAL 

For more Information and an ordering form 

contact: Eric C. Retinke 

1067 Jadestone Lone 
Corona, CA 91720 
(714) 371-4548 




APPLE DISK & MEMORY UTILITY 



THE INSPECTOR 

These uliliiies enable the u^er to txsmintr dala 
bolh 111 Lhe Apple '5 meinojy and on disks. Simple 
comnsands ^IJow acanmng ihrouah RAM and 
ROM nwinorv as well JS reading, displavmg and 
chan^tn^ data on disk 

Readartdrewnlesetlionsol Random Access Jiles 
Rptonslfuci a blown VTOC. Weed 0*11 unujanted 
conlrol characters in CATALOG lisiings. 
UNDELETE deleted IlLps or programs Repair dips 
thai hsH/e erroneous daia. All wirhoifi being under 
program conlrol and more... 
You mav transfer seclors belujeen disks This 
allo^^'s you (o iransfer DOS [rom orie disk To 
anoihcr thereby ^ai'irig a blown diali when all ihal'ii 
blown 15 DOS Itself: 01 10 re&lore a portion of a 
blown disk Irom its backup disk 

Us unique NIBBLfi read rouEirw pro^de& a Hi Hes 
araphical represeniaMon of rhc dala on any [rack 
allowing von 10 iinmediaiely ascertain whether 
vour disk IS 13 sector 01 16 seclor Gel an I/O 
error is it because you have rhe wrong DOS up? 
IS It because o( a bad address field"* or a bad data 
Held? or because a [rack was erased'^ This will 
allowyou lotellman instant wjiihoul blowing away 
any program in memory 



• Repairs BtrHfn Disks 

* Reads Ntbbtss 

* Maps Disk Space 

• Searches Disks 



The INSPECTOR enwn lets you search ihrough 
an entire di^ or ihrough onboard memory for the 
appearance of a sfnng. Now you can easily add 
lowjer case lo ynur programs lujiih LCA). 

Do yov wanr [o add so-called illegal line numbers 
into your program? or ha^e several ol the same line 
numbers in a program {like the prolessional 
programmers doP or input unavailable commands 
{like HIMEM ro Integer Basic j"^ or put quotation 
marks in(o PRINT statemenls? Here's the easy 
way [O do ihem a 11^ 

AND MORE 
The INSPECTOR provides a USER exit rhat will 
interlace ynur own subroutines vjilh (hose ol ihe 
INSPECTOR ilselj. Kor example, jusr pui a 
screen dump routine (sample included in 
documenlaEion) at HEX 0300 and press CTRL Z. 
The contents oi the screen page will prm! lo your 
primer 

ROM RESIDEIVT ROUTINES 
The INSPECTOR utilities come on an easily 
installed EPROM This makes them always 

available for insiant use No need rn bad a disk 

arxl run a program 

FULLV DOCUMENTED 

Unliki? utiwr soliwarc oi i[s kinds The 
IN5PECTOK comes i^ilh an EASY lo 
iindersland manLid] dFld refcrpncp card Enampt^5 
and giaphics helo even [be iinnif idled use Ihe 
poAierof rKesemiliiies And iui-rhernsore, we tiHer 
the kind olpeiajnalsGrvicpwhich you have neuGT 
expcrfpnced (rom j solluJare vprkdof heiote 



• Searches Memory 

' Ediis Disk Seclois 

' Outputs Screen lo Printer 

' Displays Memory In HEX/ ASCI I 



Se» your LOCAL DEALER OR 

Maslcicard OI Visa ua*rs call TOLL FRF.E l- 
800-835-2246. Kansas icsidenls rail 1-800- 
362-242L Or send SW.95. Illinois iFsidenIS 
add S3 saks 1a<I. 

SYSTEM REQUIREMENTS 

All Apple II configure I itnsrhj I hiv^accesslolnieflerBa^t 
isillisf 111 ROM 0! RrtMl ™ll siippon Tiip INSraCTOR. 
Jusi place ihpfhjp inempfy sockcl D8 eilhei on rhe molhtfr 
board or III an Inrpgtfi rirrriLuafC card Anplp II* ^yiftfrns 
wiih RAM expansion boards or language ^^tpms will 
rsce™ Iho fMSPECTOR on aisk Id merge and load wlh 
LNTBASIC 

And il ^1. ha« an Apple II-, wilhajl eilher RAMor ROM 
aci^esa fo Inieger Baiic, jou «nll ^lill Iv able lo uw The 
INSPECTOR totalise v* aie raking a«iilable 16k RAM 
eniHn^ioii bodrds al a ^rvallordahle prKp Nni ufj/will 
you he aWe [o uk The INSPECTOR, bul you will alio 
ha** access lo Iniegei Basic and u[htT langiragfli Our 
price (OI BOTH ihe INSPECTOR and ou> !«. RAM 
board i8l]69r9S,lp55Chjnnio%: RAM boards akinp Call 
our LiHic*- lor deiaili 



Another Qudtily Producl irom 
Omega Software Products. Inc. 
223 S. Riverside Plaza, Chicago, IL 60606 
Phone (3ia) 648-1944 



' 1981 Orntga Sallware Pioducls. Inc. 

Apple IS a reaislpTCd rtademark of Apple Compuier, Inc 
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WHAT IS ULTRA-RES™GRAPHICS 
FROM DATA TRANSFORMS INC.? 
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NO NONSENSE BOOKS 

A GENERAL LEDGER SYSTEM 
FOR THE APPLE COMPUTER 



* WE'VE KEPT rT SIMPLE FOR YOU 

* EASY TO LEARN AND USE 

* SETUP AND RUN IN 10 MINUTES 

* 50 SUGGESTED ACCOUNTS 

* 5 PROFIT CENTERS 

* 2 CHECKBOOK ACCOUNTS 

* JOURNAL AND CHECK RECORDS 

* BALANCES CHECKBOOKS 

* INSTANT PROFIT AND LOSS 
STATEMENTS 

* 1-7 MONTHLY REPORTS 

APPLESOFT-2 DISK DRIVES. 

132 COL. PRINTER. 48K MIN.REQ $325.00 

HANDBOOK WITH SAMPLE REPORTS 5.00 

VISA & M/C USERS-CALL ^q gQ^ 1531 

(509)943-0198 RICHLAND, WA 99352 




APPLE IS A B EG 151 E RED TRADEMARK 
or flPP(_E COMPUTER INC. 
WA Re«kE]Bnrt, Jdd 5% ulvi lai 

DEALER INQUIRIES INVITED 



SCll=~rWAFt£ FOR OH X O BC: I I 



:rjl 



tion 
1 1 ><■ 



Vl[)EO EDjrOP 
Vidao Editor 1« ■ do**v4uI full «cr**n BtlitDr 4ar dlBh-b 
□Sr ByaliHiis vith tha palird haybDArd {*rtc«pt CIPI , Al 

full curBCH — control hI Ch inavrtion, dalation dnd dupLica 
O* VEhirca for BaSTC fw OBI'b fl*«»«iilBr /Edi to*-. L»i 

varcLons -iri tt*fi in BABIC. tlM « •■chinw-tOd* ad i tor ■« 
ca-r*sid*fit kfiCh BASIC Cor tha flEsaAblarl, outoXOjainq into 
tha higheat thraa pagV* of RA" upo^ boot. Vidao Editor aIsj 
gravidas cinqla-kayKtroka CDntrnJ O* •ounfl, vcraffl foi-aat, 
calor and bac ksr- otjri d tolor. Elqht-lnch or aim di«H 

ml4.9S. Specify dJtaunt of RATI. 

SOFT FRONT P««L 
Soft Front Panal 1« * «oflirtra »inqla-«lappar, ■! oh- * t a(i p rr 
and dabugger-enuJ *'or that parni ts *«fy d ava 1 a|] van t o' b^iJZ 
aacTiinB coda. SFP X% « fantastic *oni tor , aiiaul tarivously 
dlVDlaymg all rHqi»t«r». flag*, !»»• utaclf and Bora. 

Addra** traps, oficoda trap*, trap* on oienjry conlant and i^ 
port and fltac$( activity Ara all fiupfiDrted, Thxa »» for dL«^ 
syvtaas •■ith palLad travboarO and color CbLf •on i tor ok>. 
Uta* Bound and cntor capabilities of OSl C2^C4/CH myata-* 
inot for ClPl. Eiqbt-inch or aim disk *2»-*3- SpaCify 

*aovnt of PWI. Manual only, •4.93 (May b* 1 atar craditad 
tDward softrfara purchas*] > S^" P>?> brochuTa awailalila fr*« 
upon raquBGt. 

TERflTMAl, CONTROL PnCKRAM 
05T-TCP 15 a sophi Aticatad Teraina^ Control PVograa for 
aQltinq OS-ASD3 filsa, «nd for up^aadinq and dovailoadinq 
t^haaa files to Othar cooiputarB througn th* CPU bOai-d'* 
fta--ial port on OSl C2, C* and CB di tb-Damaa «ystaaa MiV\ 
pOlLad ).aybaarda, Thlrtaan editor cnp»»anda alio- full 

adltlng of files. Including foanands for AandJng any ta«t 
Out tha tareinal port and saving bhatE-ar taKt co^es baCH- 
INDUTL utMity includad for CDnverting batk^an BASIC aowca 
and TCP file taut, Eighl-inch or aim (]i4li •39.95. Hanual 

oniy* »?^95. 

DSl-FOHTH 2.0 / FIE-FORTH l.l 
DGI-FORTH 2.0 is a -full 1 •*» 1 eman t at i do O* tia FORTH Interact 
Grouo FORTH, for aiak-baaed OSl *ysta-a CCl ,C2.i:S,C4.ce> . 
Running under DSbSD3, it mcludaa a raalQant taut editor *p(1 
bZOI asseabler. Over one hundred paqaa of doc uotant a t k on and 
a *iandy refarenca card are provided. Requires 'LAK f^QK ClP> ■ 
Eight-inch or *»ni disk %TI,t^, Hanual only. •9-95. 

"OBl-FOPTH Letta*-«~ eDft-<are support ne»-slatter •4.«l/yaar^ 



ft\\ prices postpaid 
1 nqui r \ es are i nv i tad ■ 



Fl 



residaots add 4JC ta-. 
AlloH ZO days for delivery. 



Daalar 



HRTTE FOR FPEE CATALOG 
OF SOFTWARE AND NARDUARC 
FOR OHIO SCIENTIFIC '' 



Tecbhical Prwlucts Conmeny 
P.n. Box I2vas Uni-. StatiO 
Gainesville, Florida 32fal>4 
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The only 
thing 
do with a 
baiced Apple 
is eat it. 



The more you stuff your Apple ir" with plug-in 
boards, the more of a chance it has to overheat. 
And once that happens, it won't do anybody any 
■M^ii f ^n good. Your program bombs and you start losing 
yUU (Qll time and money 

The solution? Simple. Take two minutes to install 
the Dana Industries fan in the back of your Apple, 
and you'il practically never have to 
worry about overheating again. 
So pick up the Dana industries 
fan at your local ^ ^*s,i(^a ' 
computer store. JL?^19 
And your Apple '^■^^/•'^ 

will have a longand 
fruitful life. 



"Apple II IS a irademarK of Apple Computer. Inc 
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Next Month in MICRO 



Double Apple Bonus: 
Applesoft and Programming 
Languages 

• Plotting Figures from Applesoft — This 
program demonstrates how large and 
complex ligures may be put onto the Hi-Res 
screen by plotting piecewise approximations 
of their edges. 

• Apple Memory Map Display — MEMAP is 
a short, exec file utility which creates 
memory maps of Applesoft programs 
without altering the memory contents. 

• Applesoft Varisble Dump — The ability to 
dump the values of all variables can be 
immensely helpful in Applesoft program 
development. The Applesoft Variable Lister 
provides this ability and can be used with 
any program, located anywhere in memory. 

• Sweet 16 Revisited — The Apple ll's 
Integer BASIC ROM supports a powerful and 
seldom used pseudo machine known as 
Sweet 16. In this article, the Sweet 16 
instruction set is described and 



programming hints, using a macro- 
assembler, are presented. 

• Applesoft Line Finder Routine — This 
55-byte machine language program will 
display the bytes constituting a specified line 
in an Applesoft program. Also demonstrated: 
the use of subroutines available in Applesoft 
and the Apple Monitor. 

Other December Articles 

Flags and Boolean Algebra In Microsoft 
basics: Shorthand for Cursor Control: The AIM 
65 as a High-Speed Recorder: Recursive Use 
of GOSUB In Microsoft BASIC; OSI Symbolic 
Disassembler. 

Plus Our Regular Departments 

PET Vet 

From Here to Atari 
Software Catalog 
Hardware Catalog 
... and more 



1 



40% OFF 



More MICRO for Less Money When 
When You Subscribe, until December 31st 



Your money goes farther when you sub- 
scribe. During the course of a year, when you 
subscribe, you save 40% (in the U.S.). 

Pay only $18.00 ($1.50 a copy) for 12 monthly 
issues of tuilCRO sent directly to your home or 
office in the U.S. 



But on the newsstand — if you can locate the 
issue you want — you pay $30,00 a year ($2.50 
a copy). 

Save 40% and make sure you get every issue. 
Subscribe to MICRO today. 



MICRO 

34 Chetmsford Street 
P.O. Box 6502 
Chelmsford, MA 01824 

Please send me MICRO for 1 year 2 years 

NOTE; Airmail subscriptions accepted for 1 year only. 



Subscription Rates Effective January 1, 1982 
Country Rate 



Check enclosed $_ 
Charge my 

No. 



. VISA account 

. Mastercard account 



Expiration dale 
Name 



United States 

Foreign surface mail 

Europe (air) 

Mexico, Central America, Mid East, 

N, & C. Africa 
South Am., S. Atr., Far East, 

Australasia, New Zealand 



$24.00 1 yr. 
42,00 2 yr, 
27,00 
42.00 

48,00 

72,00 



• Airmail subscriptions accepted for only 1 year. 
For U,S- and Canadian 2-year rates, multiply by 2, 



Address 



City/Slate . 



.Zip 



Job Title: 



Type of Business/Industry; . 



i 
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ADVENTURE has gone GOLD! 

AND WE WfAiNiT|M|liri|g|iHBiUiyillTH US." 

The 12 Scott-Adafhs' Adventures are presented in our Limited Gold Edition. Each tape and disk is in- 
dividually numbered, and guaranteed until July 10th, 2001- Each package contains a certificate of 
authenticity, a registration card and an autographed, {rather interesting) photo of the author. 
The 12 Adventures normally retail for $239.40 individually on tape and $159.80 tor 4 triple-pack disks. 

y The Limfted Gold Edition is yours , . . forever 



.>«■ 



... for $100.00 tape or disk, value for value. 
To Order: The Limited Gold Edition is available 
in very limited quantity, from interested Soft- 
"""■" ^"'iailers. Ask your local dealer. If he does 
The Limited Gold Edition . . . Then cal I 

1-800-262-4242 (Loc3l7r3-6?^[Uaj^HL^J{i^ 
will direct you lo a dealer whodoe^^^^^hel 
Limited Gold Edition. Supply Is Limited! 








-^-"^Gm&u 






The Limited 
Gold Edition 

is available in 
the following 
i^'ifferent 
:eonfigurations. 
■.■• Apple 2 Disk 
^V with TRS-80 



package 
Atari Ta[ 
Atari Disk 
'TRS-80 Tap 

J 00.00 Each 





-?'fe/ 



ith thS^^ of Adventura; 
old Coins ishjdden wittiin 
" ,.lts W&iting for you. 



he Limited Go 

i distributed exclusively by: ( 

■'8295 SO. LA CIENEGA BLVD. « INGLEWOOD, CA 90301 



Q imiJNTiNeTCN ccMipiLTiNe i 

rBBISS0»IS! ONE OF THE WORLDS LARGEST INVENTORIES aa^^m:taimuja 

^ Limited Time Only 

Now 1 39 
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i^lSiClCX List 200.00 

(Please mention this ad when ordering) Expires Dec. 31, 1981 







Personal Software, Brand New, Shrink Wrapped. Immediate Delivery. $2.00 Shipping (for total Software order). 

No Hidden Charges. No Gimmicks. 




Also 

Atari® 

Pet® 

TRS-80 

Huge 
Inventory 



The World's Most Remote Computer Store ! This is the Huntington Comput- 
ing gang in the cotton field across the street from our 3300 square foot store 
in Corcoran, CA. We may be in the country but we believe we have the 
world's largest selection of microcomputer software. And, we accept School 
Purchase Orders. SPECIALS 

V'sicalc us. .00 00 NOW $149.00 -<; Z:ZTii»Z 

Pegasus II List $29.95 now $22.99 Andromeda or Microsoft 

S-C Assembler II List $55,00 now $46.69 ^^^ Expansion Board 

Microsoft Z-80 Card us, ssas now $299.00 'l^'EducaZaTsl"'!! 

D.C. Hayes MIcromodem II List 3375 now $299.00 15% off list 

Call Toil-Free 800-344-41 1 1 (Outslde California) 

ro!!?.!l^?7.?" """•"""«• --' -' suPE. DISCOUNTS ^£ Ta^^tX^.^cTorrsr.;^ 

CDrcoran,Cali(ornia932i2 ^^_ t ^^^^ adfl 6% tax Include S2.00 (or postage 

Order by Phone 800-344-41 1 1 ^BCIQOlG SOFTWARE /JilHifc. foreign and hardware e«lra. SenO lor free 

In California (209) 992-5411 w9 ' ' Wil '^^'^'^a P"=" ^--^'^''^ '^''^"a^ 
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11 In California (209) 992-541 1 vV ^ 



